projects
/
pspp-builds.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
952c7c5
)
Add regression test for bug #21108.
author
Ben Pfaff
<blp@gnu.org>
Thu, 20 Sep 2007 04:50:54 +0000
(
04:50
+0000)
committer
Ben Pfaff
<blp@gnu.org>
Thu, 20 Sep 2007 04:50:54 +0000
(
04:50
+0000)
tests/ChangeLog
patch
|
blob
|
history
tests/bugs/input-crash.sh
patch
|
blob
|
history
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
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
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;
pass;