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

[Ben Pfaff]

---
 tests/automake.mk               |    1 +
 tests/language/utilities/set.at |   22 ++++++++++++++++++++++
 2 files changed, 23 insertions(+), 0 deletions(-)
 create mode 100644 tests/language/utilities/set.at

diff --git a/tests/automake.mk b/tests/automake.mk
index 6b523ce..481ecce 100644
--- 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
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
-- 
1.7.1