DO REPEAT: Add test for missing END REPEAT.

Bug #31016.

diff --git a/tests/language/control/do-repeat.at b/tests/language/control/do-repeat.at
index 8f300dc95ea265d178c499603ce1b45f0aeea5b5..a0b29d93a10a6ee83d4ab1b00dcb7f5778412e76 100644 (file)
--- a/tests/language/control/do-repeat.at
+++ b/tests/language/control/do-repeat.at
@@ -47,3 +47,21 @@ AT_CHECK([pspp -o pspp.csv do-repeat.sps])
 AT_CHECK([cat pspp.csv], [0], [dnl
 ])
 AT_CLEANUP
+
+dnl This program tests for a bug that crashed PSPP when END REPEAT
+dnl was missing.  See bug #31016.
+AT_SETUP([DO REPEAT -- missing END REPEAT])
+AT_DATA([do-repeat.sps], [dnl
+DATA LIST NOTABLE /x 1.
+DO REPEAT y = 1 TO 10.
+])
+AT_CHECK([pspp -o pspp.csv do-repeat.sps], [1], [dnl
+error: DO REPEAT: DO REPEAT without END REPEAT.
+error: Stopping syntax file processing here to avoid a cascade of dependent command failures.
+])
+AT_CHECK([cat pspp.csv], [0], [dnl
+error: DO REPEAT: DO REPEAT without END REPEAT.
+
+error: Stopping syntax file processing here to avoid a cascade of dependent command failures.
+])
+AT_CLEANUP