[Pspp-cvs] pspp/tests ChangeLog bugs/input-crash.sh

[Ben Pfaff]

CVSROOT:        /cvsroot/pspp
Module name:    pspp
Changes by:     Ben Pfaff <blp> 07/09/20 04:50:54

Modified files:
        tests          : ChangeLog 
        tests/bugs     : input-crash.sh 

Log message:
        Add regression test for bug #21108.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pspp/tests/ChangeLog?cvsroot=pspp&r1=1.107&r2=1.108
http://cvs.savannah.gnu.org/viewcvs/pspp/tests/bugs/input-crash.sh?cvsroot=pspp&r1=1.7&r2=1.8

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/pspp/pspp/tests/ChangeLog,v
retrieving revision 1.107
retrieving revision 1.108
diff -u -b -r1.107 -r1.108
--- ChangeLog   5 Sep 2007 04:56:15 -0000       1.107
+++ ChangeLog   20 Sep 2007 04:50:54 -0000      1.108
@@ -1,3 +1,7 @@
+2007-09-19  Ben Pfaff  <address@hidden>
+
+       * bugs/input-crash.sh: Add regression test for bug #21108.
+
 2007-09-04  Ben Pfaff  <address@hidden>
 
        Update scripts that invoke Perl to invoke it as simply "perl" if

Index: bugs/input-crash.sh
===================================================================
RCS file: /cvsroot/pspp/pspp/tests/bugs/input-crash.sh,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- bugs/input-crash.sh 26 Aug 2007 18:35:46 -0000      1.7
+++ bugs/input-crash.sh 20 Sep 2007 04:50:54 -0000      1.8
@@ -77,5 +77,23 @@
 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;