SET: Add test to avoid regression on bug #30682.

diff --git a/tests/automake.mk b/tests/automake.mk
index 6b523ce8b4e91b922d1de6ccbc8abfcc1977feec..481ecce358f1017a4f15b1c7f0b3a3193f5f58eb 100644 (file)
--- a/tests/automake.mk
+++ b/tests/automake.mk
@@ -431,6 +431,7 @@ TESTSUITE_AT = \
        tests/language/stats/flip.at \
        tests/language/stats/frequencies.at \
        tests/language/stats/oneway.at \
+       tests/language/utilities/set.at \
        tests/language/xforms/compute.at \
        tests/language/xforms/recode.at \
        tests/math/moments.at \

diff --git a/tests/language/utilities/set.at b/tests/language/utilities/set.at
new file mode 100644 (file)
index 0000000..851642e
--- /dev/null
+++ b/tests/language/utilities/set.at
@@ -0,0 +1,22 @@
+AT_BANNER([SET])
+
+# This crashed older versions of PSPP (bug #30682).
+AT_SETUP([SET FORMAT to invalid output format])
+AT_DATA([set.pspp], [dnl
+DATA LIST LIST NOTABLE /x.
+BEGIN DATA.
+1
+2
+3
+END DATA.
+SET FORMAT F41.
+DESCRIPTIVES /x.
+])
+AT_CHECK([pspp -O format=csv set.pspp], [1], [dnl
+"set.pspp:7: error: SET: Output format F41.0 specifies width 41, but F requires a width between 1 and 40."
+
+Table: Valid cases = 3; cases with missing value(s) = 0.
+Variable,N,Mean,Std Dev,Minimum,Maximum
+x,3,2.00,1.00,1.00,3.00
+])
+AT_CLEANUP