VARIABLE ROLE: Document the format and add a test.

[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 05c1eb61a302fe69a90bcedfca78032a7b662b36..4a59cf795ad80eecdecf1007c3e005a83009e415 100644 (file)
--- a/tests/language/data-io/data-list.at
+++ b/tests/language/data-io/data-list.at
@@ -266,7 +266,7 @@ BEGIN DATA.
 END DATA.
 ])
 AT_CHECK([pspp -O format=csv data-list.sps], [0], [dnl
-data-list.sps:4: warning: LIST: Missing delimiter following quoted string.
+data-list.sps:4: warning: Missing delimiter following quoted string.
 
 Table: Data List
 s
@@ -274,3 +274,16 @@ y         @&t@
 z         @&t@
 ])
 AT_CLEANUP
+
+AT_SETUP([DATA LIST FREE and LIST assume a width if omitted])
+AT_DATA([data-list.sps], [dnl
+DATA LIST FREE TABLE/s (a) d (datetime) f (f).
+])
+AT_CHECK([pspp -O format=csv data-list.sps], [0], [dnl
+Table: Reading free-form data from INLINE.
+Variable,Format
+s,A1
+d,DATETIME17.0
+f,F1.0
+])
+AT_CLEANUP