Add support for reading and writing SPV files.

[pspp] / tests / utilities / pspp-output.at

diff --git a/tests/utilities/pspp-output.at b/tests/utilities/pspp-output.at
new file mode 100644 (file)
index 0000000..a577867
--- /dev/null
+++ b/tests/utilities/pspp-output.at
@@ -0,0 +1,190 @@
+AT_BANNER([pspp-output])
+
+AT_SETUP([pspp-output dir])
+AT_CHECK([pspp-output dir $srcdir/utilities/regress.spv], [0], [dnl
+- heading "Set" command "Set"
+- heading "Title" command "Title"
+    - text "Page Title" command "Title"
+- heading "Data List" command "Data List"
+    - table "Reading 1 record from INLINE." command "Data List" subtype "Fixed Data Records"
+- heading "Begin Data" command "Begin Data"
+- heading "List" command "List"
+    - table "Data List" command "List"
+- heading "Frequencies" command "Frequencies"
+    - table "Statistics" command "Frequencies"
+    - table "v0" command "Frequencies" subtype "Frequencies"
+    - table "v1" command "Frequencies" subtype "Frequencies"
+    - table "v2" command "Frequencies" subtype "Frequencies"
+- heading "Regression" command "Regression"
+    - table "Model Summary (v2)" command "Regression" subtype "Model Summary"
+    - table "ANOVA (v2)" command "Regression" subtype "ANOVA"
+    - table "Coefficients (v2)" command "Regression" subtype "Coefficients"
+])
+AT_CLEANUP
+
+AT_SETUP([pspp-output --select equal])
+AT_CHECK([pspp-output dir $srcdir/utilities/regress.spv --select=headings],
+  [0], [dnl
+- heading "Set" command "Set"
+- heading "Title" command "Title"
+- heading "Data List" command "Data List"
+- heading "Begin Data" command "Begin Data"
+- heading "List" command "List"
+- heading "Frequencies" command "Frequencies"
+- heading "Regression" command "Regression"
+])
+AT_CLEANUP
+
+AT_SETUP([pspp-output --select unequal])
+AT_CHECK([pspp-output dir $srcdir/utilities/regress.spv --select=^headings],
+  [0], [dnl
+    - text "Page Title" command "Title"
+    - table "Reading 1 record from INLINE." command "Data List" subtype "Fixed Data Records"
+    - table "Data List" command "List"
+    - table "Statistics" command "Frequencies"
+    - table "v0" command "Frequencies" subtype "Frequencies"
+    - table "v1" command "Frequencies" subtype "Frequencies"
+    - table "v2" command "Frequencies" subtype "Frequencies"
+    - table "Model Summary (v2)" command "Regression" subtype "Model Summary"
+    - table "ANOVA (v2)" command "Regression" subtype "ANOVA"
+    - table "Coefficients (v2)" command "Regression" subtype "Coefficients"
+])
+AT_CLEANUP
+
+AT_SETUP([pspp-output --commands equal])
+AT_CHECK([pspp-output dir $srcdir/utilities/regress.spv --commands='reg*'],
+  [0], [dnl
+- heading "Regression" command "Regression"
+    - table "Model Summary (v2)" command "Regression" subtype "Model Summary"
+    - table "ANOVA (v2)" command "Regression" subtype "ANOVA"
+    - table "Coefficients (v2)" command "Regression" subtype "Coefficients"
+])
+AT_CLEANUP
+
+AT_SETUP([pspp-output --commands unequal])
+AT_CHECK([pspp-output dir $srcdir/utilities/regress.spv --commands='^reg*'],
+  [0], [dnl
+- heading "Set" command "Set"
+- heading "Title" command "Title"
+    - text "Page Title" command "Title"
+- heading "Data List" command "Data List"
+    - table "Reading 1 record from INLINE." command "Data List" subtype "Fixed Data Records"
+- heading "Begin Data" command "Begin Data"
+- heading "List" command "List"
+    - table "Data List" command "List"
+- heading "Frequencies" command "Frequencies"
+    - table "Statistics" command "Frequencies"
+    - table "v0" command "Frequencies" subtype "Frequencies"
+    - table "v1" command "Frequencies" subtype "Frequencies"
+    - table "v2" command "Frequencies" subtype "Frequencies"
+])
+AT_CLEANUP
+
+AT_SETUP([pspp-output --subtypes equal])
+AT_CHECK([pspp-output dir $srcdir/utilities/regress.spv --subtypes='freq*'],
+  [0], [dnl
+    - table "v0" command "Frequencies" subtype "Frequencies"
+    - table "v1" command "Frequencies" subtype "Frequencies"
+    - table "v2" command "Frequencies" subtype "Frequencies"
+])
+AT_CLEANUP
+
+AT_SETUP([pspp-output --subtypes unequal])
+AT_CHECK([pspp-output dir $srcdir/utilities/regress.spv --subtypes='^freq*'],
+  [0], [dnl
+- heading "Set" command "Set"
+- heading "Title" command "Title"
+    - text "Page Title" command "Title"
+- heading "Data List" command "Data List"
+    - table "Reading 1 record from INLINE." command "Data List" subtype "Fixed Data Records"
+- heading "Begin Data" command "Begin Data"
+- heading "List" command "List"
+    - table "Data List" command "List"
+- heading "Frequencies" command "Frequencies"
+    - table "Statistics" command "Frequencies"
+- heading "Regression" command "Regression"
+    - table "Model Summary (v2)" command "Regression" subtype "Model Summary"
+    - table "ANOVA (v2)" command "Regression" subtype "ANOVA"
+    - table "Coefficients (v2)" command "Regression" subtype "Coefficients"
+])
+AT_CLEANUP
+
+AT_SETUP([pspp-output --labels equal])
+AT_CHECK([pspp-output dir $srcdir/utilities/regress.spv --labels='v*'],
+  [0], [dnl
+    - table "v0" command "Frequencies" subtype "Frequencies"
+    - table "v1" command "Frequencies" subtype "Frequencies"
+    - table "v2" command "Frequencies" subtype "Frequencies"
+])
+AT_CLEANUP
+
+AT_SETUP([pspp-output --labels unequal])
+AT_CHECK([pspp-output dir $srcdir/utilities/regress.spv --labels='^data*'],
+  [0], [dnl
+- heading "Set" command "Set"
+- heading "Title" command "Title"
+    - text "Page Title" command "Title"
+    - table "Reading 1 record from INLINE." command "Data List" subtype "Fixed Data Records"
+- heading "Begin Data" command "Begin Data"
+- heading "List" command "List"
+- heading "Frequencies" command "Frequencies"
+    - table "Statistics" command "Frequencies"
+    - table "v0" command "Frequencies" subtype "Frequencies"
+    - table "v1" command "Frequencies" subtype "Frequencies"
+    - table "v2" command "Frequencies" subtype "Frequencies"
+- heading "Regression" command "Regression"
+    - table "Model Summary (v2)" command "Regression" subtype "Model Summary"
+    - table "ANOVA (v2)" command "Regression" subtype "ANOVA"
+    - table "Coefficients (v2)" command "Regression" subtype "Coefficients"
+])
+AT_CLEANUP
+
+AT_SETUP([pspp-output --instances])
+AT_CHECK([pspp-output dir $srcdir/utilities/regress.spv --instances=1],
+  [0], [dnl
+    - text "Page Title" command "Title"
+    - table "Reading 1 record from INLINE." command "Data List" subtype "Fixed Data Records"
+    - table "Data List" command "List"
+    - table "Statistics" command "Frequencies"
+    - table "Model Summary (v2)" command "Regression" subtype "Model Summary"
+])
+AT_CLEANUP
+
+AT_SETUP([pspp-output --instances=last])
+AT_KEYWORDS([--instances last])
+AT_CHECK([pspp-output dir $srcdir/utilities/regress.spv --instances=last],
+  [0], [dnl
+    - text "Page Title" command "Title"
+    - table "Reading 1 record from INLINE." command "Data List" subtype "Fixed Data Records"
+    - table "Data List" command "List"
+    - table "v2" command "Frequencies" subtype "Frequencies"
+    - table "Coefficients (v2)" command "Regression" subtype "Coefficients"
+])
+AT_CLEANUP
+
+dnl XXX Currently PSPP doesn't output hidden items so no tests
+dnl XXX for --show-hidden.
+
+AT_SETUP([pspp-output --or])
+AT_CHECK([pspp-output dir $srcdir/utilities/regress.spv --select=headings --or --labels='v*'],
+  [0], [dnl
+- heading "Set" command "Set"
+- heading "Title" command "Title"
+- heading "Data List" command "Data List"
+- heading "Begin Data" command "Begin Data"
+- heading "List" command "List"
+- heading "Frequencies" command "Frequencies"
+    - table "v0" command "Frequencies" subtype "Frequencies"
+    - table "v1" command "Frequencies" subtype "Frequencies"
+    - table "v2" command "Frequencies" subtype "Frequencies"
+- heading "Regression" command "Regression"
+])
+AT_CLEANUP
+
+AT_SETUP([pspp-output convert])
+AT_CHECK([pspp-output convert $srcdir/utilities/regress.spv -O format=csv - --subtypes='model*'], [0], [dnl
+Table: Model Summary (v2)
+R,R Square,Adjusted R Square,Std. Error of the Estimate
+.96,.92,.91,1.49
+])
+AT_CLEANUP