1 dnl PSPP - a program for statistical analysis.
2 dnl Copyright (C) 2017 Free Software Foundation, Inc.
4 dnl This program is free software: you can redistribute it and/or modify
5 dnl it under the terms of the GNU General Public License as published by
6 dnl the Free Software Foundation, either version 3 of the License, or
7 dnl (at your option) any later version.
9 dnl This program is distributed in the hope that it will be useful,
10 dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
11 dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 dnl GNU General Public License for more details.
14 dnl You should have received a copy of the GNU General Public License
15 dnl along with this program. If not, see <http://www.gnu.org/licenses/>.
17 AT_BANNER([DO REPEAT])
19 AT_SETUP([DO REPEAT -- simple])
20 AT_DATA([do-repeat.sps], [dnl
23 DO REPEAT xval = 1 2 3 / yval = 'a' 'b' 'c' / var = a b c.
33 AT_CHECK([pspp -o pspp.csv do-repeat.sps])
34 AT_CHECK([cat pspp.csv], [0], [dnl
43 AT_SETUP([DO REPEAT -- containing BEGIN DATA])
44 AT_DATA([do-repeat.sps], [dnl
45 DO REPEAT offset = 1 2 3.
46 DATA LIST NOTABLE /x 1-2.
52 COMPUTE x = x + offset.
56 AT_CHECK([pspp -o pspp.csv do-repeat.sps])
57 AT_CHECK([cat pspp.csv], [0], [dnl
78 AT_SETUP([DO REPEAT -- dummy vars not expanded in include files])
79 AT_DATA([include.sps], [dnl
80 COMPUTE y = y + x + 10.
82 AT_DATA([do-repeat.sps], [dnl
96 AT_CHECK([pspp -o pspp.csv do-repeat.sps], [0], [dnl
97 do-repeat.sps:8.11: warning: DO REPEAT: Dummy variable name `x' hides dictionary variable `x'.
98 8 | DO REPEAT x = 1 2 3.
101 AT_CHECK([cat pspp.csv], [0], [dnl
102 "do-repeat.sps:8.11: warning: DO REPEAT: Dummy variable name `x' hides dictionary variable `x'.
103 8 | DO REPEAT x = 1 2 3.
112 AT_SETUP([DO REPEAT -- nested])
113 AT_DATA([do-repeat.sps], [dnl
114 DATA LIST NOTABLE /a 1.
119 DO REPEAT h = h0 TO h3 / x = 0 TO 3 / y = 8, 7.5, 6, 5.
125 DO REPEAT i = 1 TO 2.
126 DO REPEAT j = 3 TO 5.
128 COMPUTE #idx = #idx + 1.
129 COMPUTE v(#idx) = #x.
135 AT_CHECK([pspp -o pspp.csv do-repeat.sps])
136 AT_CHECK([cat pspp.csv], [0], [dnl
138 a,h0,h1,h2,h3,v1,v2,v3,v4,v5,v6
139 0,8.00,8.50,8.00,8.00,4.00,5.00,6.00,5.00,6.00,7.00
143 dnl This program tests for a bug that crashed PSPP given an empty DO
144 dnl REPEAT...END REPEAT block. See bug #18407.
145 AT_SETUP([DO REPEAT -- empty])
146 AT_DATA([do-repeat.sps], [dnl
147 DATA LIST NOTABLE /a 1.
155 AT_CHECK([pspp -o pspp.csv do-repeat.sps])
156 AT_CHECK([cat pspp.csv], [0], [dnl
160 dnl This program tests for a bug that crashed PSPP when END REPEAT
161 dnl was missing. See bug #31016.
162 AT_SETUP([DO REPEAT -- missing END REPEAT])
163 AT_DATA([do-repeat.sps], [dnl
164 DATA LIST NOTABLE /x 1.
165 DO REPEAT y = 1 TO 10.
167 AT_CHECK([pspp -O format=csv do-repeat.sps], [1], [dnl
168 error: DO REPEAT: At end of input: Syntax error expecting END.