Add regression test for bug #21108.

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 8d8e67c5366f7ba628f75cff15df39540a8e9f21..22e46423b19b2f9361f5e0af45c5a2ff88d1f70b 100644 (file)
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,7 @@
+2007-09-19  Ben Pfaff  <blp@gnu.org>
+
+       * bugs/input-crash.sh: Add regression test for bug #21108.
+
 2007-09-04  Ben Pfaff  <blp@gnu.org>
 
        Update scripts that invoke Perl to invoke it as simply "perl" if

diff --git a/tests/bugs/input-crash.sh b/tests/bugs/input-crash.sh
index f67b3d28a4fab8ee8275aa536d805d0d9894237c..600ca729457745f6c77fec0ba64acd124db73fb7 100755 (executable)
--- a/tests/bugs/input-crash.sh
+++ b/tests/bugs/input-crash.sh
@@ -77,5 +77,23 @@ $SUPERVISOR $PSPP --testing-mode -e /dev/null $TESTFILE
 if [ $? -ne 1 ] ; then fail ; fi
 
 
+activity="create test program 2"
+cat > $TESTFILE <<EOF
+* From bug #21108.
+input program.
+data list list /x.
+end file.
+end input program.
+
+descriptives x.
+EOF
+if [ $? -ne 0 ] ; then no_result ; fi
+
+
+# The above syntax is invalid, so this program should fail to parse
+activity="run program 2"
+$SUPERVISOR $PSPP --testing-mode -e /dev/null $TESTFILE
+if [ $? -ne 1 ] ; then fail ; fi
+
 
 pass;