Add support for reading SPSS/PC+ system files.

[pspp] / tests / language / dictionary / sys-file-info.at

diff --git a/tests/language/dictionary/sys-file-info.at b/tests/language/dictionary/sys-file-info.at
index 923c3a29c7c34c685002dbb08e9c6fdba7a174c5..e822506b33dc743b6f11a1b134cd930f3c1184e2 100644 (file)
--- a/tests/language/dictionary/sys-file-info.at
+++ b/tests/language/dictionary/sys-file-info.at
@@ -18,7 +18,7 @@ AT_CHECK(
        -e '/^Endian:,/d' \
        -e '/^Integer Format:,/d' \
        -e '/^Real Format:,/d' \
-       -e '/^Charset:,/d' pspp.csv],
+       -e '/^Encoding:,/d' pspp.csv],
   [0], [dnl
 Table: Reading free-form data from INLINE.
 Variable,Format
@@ -29,18 +29,99 @@ File:,pro.sav
 Label:,No label.
 Variables:,2
 Cases:,3
-Type:,System File
+Type:,SPSS System File
 Weight:,Not weighted.
-Mode:,Compression on.
-
-Variable,Description,,Position
-x,Format: F8.2,,1
-,Measure: Scale,,
-,Display Alignment: Right,,
-,Display Width: 8,,
-name,Format: A10,,2
-,Measure: Nominal,,
-,Display Alignment: Left,,
-,Display Width: 10,,
+Compression:,SAV
+
+Variable,Description,Position
+x,"Format: F8.2
+Measure: Scale
+Role: Input
+Display Alignment: Right
+Display Width: 8",1
+name,"Format: A10
+Measure: Nominal
+Role: Input
+Display Alignment: Left
+Display Width: 10",2
+])
+AT_CLEANUP
+
+AT_BANNER([DISPLAY])
+
+dnl DISPLAY DOCUMENTS is tested with commands for documents.
+
+AT_SETUP([DISPLAY FILE LABEL])
+AT_DATA([display.sps], [dnl
+DATA LIST LIST NOTABLE /x * name (a10) .
+
+DISPLAY FILE LABEL.
+
+FILE LABEL 'foo bar baz quux'.
+DISPLAY FILE LABEL.
+])
+AT_CHECK([pspp -O format=csv display.sps], [0], [dnl
+The active dataset does not have a file label.
+
+File label: foo bar baz quux
+])
+AT_CLEANUP
+
+dnl DISPLAY VECTORS is tested with commands for vectors.
+
+dnl DISPLAY ATTRIBUTES and @ATTRIBUTES are tested with commands for attributes.
+
+AT_SETUP([DISPLAY SCRATCH])
+AT_DATA([sysfile-info.sps], [dnl
+DATA LIST LIST NOTABLE /x * name (a10) .
+DISPLAY SCRATCH.
+COMPUTE #x=0.
+DISPLAY SCRATCH.
+])
+AT_CHECK([pspp -O format=csv sysfile-info.sps], [0], [dnl
+sysfile-info.sps:2: warning: DISPLAY: No variables to display.
+
+Variable
+#x
 ])
 AT_CLEANUP
+
+AT_SETUP([DISPLAY INDEX])
+AT_DATA([sysfile-info.sps], [dnl
+DATA LIST LIST NOTABLE /x * name (a10) .
+DISPLAY INDEX.
+])
+AT_CHECK([pspp -O format=csv sysfile-info.sps], [0], [dnl
+Variable,Position
+x,1
+name,2
+])
+AT_CLEANUP
+
+AT_SETUP([DISPLAY NAMES])
+AT_DATA([sysfile-info.sps], [dnl
+DATA LIST LIST NOTABLE /x * name (a10) .
+DISPLAY NAMES.
+])
+AT_CHECK([pspp -O format=csv sysfile-info.sps], [0], [dnl
+Variable
+x
+name
+])
+AT_CLEANUP
+
+AT_SETUP([DISPLAY LABELS])
+AT_DATA([sysfile-info.sps], [dnl
+DATA LIST LIST NOTABLE /x * name (a10) .
+VARIABLE LABEL x 'variable one' name 'variable two'.
+VALUE LABEL x 1 'asdf' 2 'jkl;'.
+DISPLAY LABELS.
+])
+AT_CHECK([pspp -O format=csv sysfile-info.sps], [0], [dnl
+Variable,Label,Position
+x,variable one,1
+name,variable two,2
+])
+AT_CLEANUP
+
+dnl DISPLAY VARIABLES Is tested in multiple places.