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/>.
16 dnl AT_BANNER([DO REPEAT])
18 AT_SETUP([DO REPEAT -- simple])
19 AT_DATA([do-repeat.sps], [dnl
22 DO REPEAT xval = 1 2 3 / yval = 'a' 'b' 'c' / var = a b c.
32 AT_CHECK([pspp -o pspp.csv do-repeat.sps])
33 AT_CHECK([cat pspp.csv], [0], [dnl
42 AT_SETUP([DO REPEAT -- containing BEGIN DATA])
43 AT_DATA([do-repeat.sps], [dnl
44 DO REPEAT offset = 1 2 3.
45 DATA LIST NOTABLE /x 1-2.
51 COMPUTE x = x + offset.
55 AT_CHECK([pspp -o pspp.csv do-repeat.sps])
56 AT_CHECK([cat pspp.csv], [0], [dnl
77 AT_SETUP([DO REPEAT -- dummy vars not expanded in include files])
78 AT_DATA([include.sps], [dnl
79 COMPUTE y = y + x + 10.
81 AT_DATA([do-repeat.sps], [dnl
90 INCLUDE 'include.sps'.
95 AT_CHECK([pspp -o pspp.csv do-repeat.sps], [0], [dnl
96 do-repeat.sps:8: warning: DO REPEAT: Dummy variable name `x' hides dictionary variable `x'.
98 AT_CHECK([cat pspp.csv], [0], [dnl
99 do-repeat.sps:8: warning: DO REPEAT: Dummy variable name `x' hides dictionary variable `x'.
107 AT_SETUP([DO REPEAT -- nested])
108 AT_DATA([do-repeat.sps], [dnl
109 DATA LIST NOTABLE /a 1.
114 DO REPEAT h = h0 TO h3 / x = 0 TO 3 / y = 8, 7.5, 6, 5.
120 DO REPEAT i = 1 TO 2.
121 DO REPEAT j = 3 TO 5.
123 COMPUTE #idx = #idx + 1.
124 COMPUTE v(#idx) = #x.
130 AT_CHECK([pspp -o pspp.csv do-repeat.sps])
131 AT_CHECK([cat pspp.csv], [0], [dnl
133 a,h0,h1,h2,h3,v1,v2,v3,v4,v5,v6
134 0,8.00,8.50,8.00,8.00,4.00,5.00,6.00,5.00,6.00,7.00
138 dnl This program tests for a bug that crashed PSPP given an empty DO
139 dnl REPEAT...END REPEAT block. See bug #18407.
140 AT_SETUP([DO REPEAT -- empty])
141 AT_DATA([do-repeat.sps], [dnl
142 DATA LIST NOTABLE /a 1.
150 AT_CHECK([pspp -o pspp.csv do-repeat.sps])
151 AT_CHECK([cat pspp.csv], [0], [dnl
155 dnl This program tests for a bug that crashed PSPP when END REPEAT
156 dnl was missing. See bug #31016.
157 AT_SETUP([DO REPEAT -- missing END REPEAT])
158 AT_DATA([do-repeat.sps], [dnl
159 DATA LIST NOTABLE /x 1.
160 DO REPEAT y = 1 TO 10.
162 AT_CHECK([pspp -O format=csv do-repeat.sps], [1], [dnl
163 error: DO REPEAT: Syntax error at end of input: expecting END.