From: Ben Pfaff <blp@gnu.org>
Date: Thu, 20 Sep 2007 04:50:54 +0000 (+0000)
Subject: Add regression test for bug #21108.
X-Git-Tag: v0.6.0~261
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=62a20a4e509f7df85cc65c831e50a8873ab1f9e7;p=pspp-builds.git

Add regression test for bug #21108.
---

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 8d8e67c5..22e46423 100644
--- 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 f67b3d28..600ca729 100755
--- 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;