DATA LIST FREE: Warn when a quoted string is not followed by a delimiter.

[pspp] / tests / language / data-io / data-list.at

diff --git a/tests/language/data-io/data-list.at b/tests/language/data-io/data-list.at
index b0582c6c47a7fd141395c41cc85a05a7aa22f958..05c1eb61a302fe69a90bcedfca78032a7b662b36 100644 (file)
--- a/tests/language/data-io/data-list.at
+++ b/tests/language/data-io/data-list.at
@@ -30,6 +30,7 @@ A,B,C
 ])
 AT_CLEANUP
 
+
 AT_SETUP([DATA LIST LIST with explicit delimiters])
 AT_DATA([data-list.pspp], [dnl
 data list list ('|','X') /A B C D.
@@ -255,3 +256,21 @@ AT_CHECK([cat write.txt], [0], [dnl
         1       12      123     1234    12345    .
 ])
 AT_CLEANUP
+
+AT_SETUP([DATA LIST FREE and LIST report missing delimiters])
+AT_DATA([data-list.sps], [dnl
+DATA LIST FREE NOTABLE/s (a10).
+LIST.
+BEGIN DATA.
+'y'z
+END DATA.
+])
+AT_CHECK([pspp -O format=csv data-list.sps], [0], [dnl
+data-list.sps:4: warning: LIST: Missing delimiter following quoted string.
+
+Table: Data List
+s
+y         @&t@
+z         @&t@
+])
+AT_CLEANUP