From 62a20a4e509f7df85cc65c831e50a8873ab1f9e7 Mon Sep 17 00:00:00 2001
From: Ben Pfaff <blp@gnu.org>
Date: Thu, 20 Sep 2007 04:50:54 +0000
Subject: [PATCH] Add regression test for bug #21108.

---
 tests/ChangeLog           |  4 ++++
 tests/bugs/input-crash.sh | 18 ++++++++++++++++++
 2 files changed, 22 insertions(+)

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;
-- 
2.30.2