3 AT_SETUP([DO REPEAT -- ordinary])
4 AT_DATA([do-repeat.sps], [dnl
5 DATA LIST NOTABLE /a 1.
10 DO REPEAT h = h0 TO h3 / x = 0 TO 3 / y = 8, 7.5, 6, 5.
19 COMPUTE #idx = #idx + 1.
26 AT_CHECK([pspp -o pspp.csv do-repeat.sps])
27 AT_CHECK([cat pspp.csv], [0], [dnl
29 a,h0,h1,h2,h3,v1,v2,v3,v4,v5,v6
30 0,8.00,8.50,8.00,8.00,4.00,5.00,6.00,5.00,6.00,7.00
34 dnl This program tests for a bug that crashed PSPP given an empty DO
35 dnl REPEAT...END REPEAT block. See bug #18407.
36 AT_SETUP([DO REPEAT -- empty])
37 AT_DATA([do-repeat.sps], [dnl
38 DATA LIST NOTABLE /a 1.
46 AT_CHECK([pspp -o pspp.csv do-repeat.sps])
47 AT_CHECK([cat pspp.csv], [0], [dnl
51 dnl This program tests for a bug that crashed PSPP when END REPEAT
52 dnl was missing. See bug #31016.
53 AT_SETUP([DO REPEAT -- missing END REPEAT])
54 AT_DATA([do-repeat.sps], [dnl
55 DATA LIST NOTABLE /x 1.
56 DO REPEAT y = 1 TO 10.
58 AT_CHECK([pspp -o pspp.csv do-repeat.sps], [1], [dnl
59 error: DO REPEAT: DO REPEAT without END REPEAT.
60 error: Stopping syntax file processing here to avoid a cascade of dependent command failures.
62 AT_CHECK([cat pspp.csv], [0], [dnl
63 error: DO REPEAT: DO REPEAT without END REPEAT.
65 error: Stopping syntax file processing here to avoid a cascade of dependent command failures.