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([INPUT PROGRAM])
19 dnl Tests for a bug which caused a crash when
20 dnl reading invalid INPUT PROGRAM syntax.
21 AT_SETUP([INPUT PROGRAM invalid syntax crash])
22 AT_DATA([input-program.sps], [dnl
24 DATA LIST NOTABLE /a 1-9.
30 AT_CHECK([pspp -O format=csv input-program.sps], [1], [dnl
31 "input-program.sps:3.1-3.10: error: BEGIN DATA: BEGIN DATA is not allowed inside INPUT PROGRAM.
37 dnl Tests for bug #21108, a crash when
38 dnl reading invalid INPUT PROGRAM syntax.
39 AT_SETUP([INPUT PROGRAM invalid syntax crash])
40 AT_DATA([input-program.sps], [dnl
42 DATA LIST LIST NOTABLE /x.
48 AT_CHECK([pspp -O format=csv input-program.sps], [1], [dnl
49 error: DESCRIPTIVES: At end of input: Syntax error expecting `BEGIN DATA'.
53 dnl Tests for bug #38782, an infinite loop processing an empty input program.
54 AT_SETUP([INPUT PROGRAM infinite loop])
55 AT_DATA([input-program.sps], [dnl
57 STRING firstname lastname (a24) / address (a80).
61 AT_CHECK([pspp -O format=csv input-program.sps], [1], [dnl
62 "input-program.sps:1.1-3.17: error: INPUT PROGRAM: Input program does not contain DATA LIST or END FILE.
64 2 | STRING firstname lastname (a24) / address (a80).
65 3 | END INPUT PROGRAM."
67 "input-program.sps:4.1-4.7: error: EXECUTE: EXECUTE is allowed only after the active dataset has been defined.
73 dnl Tests for bug #39097, a bug when an INPUT PROGRAM used VECTOR, was
74 dnl followed immediately by a call to proc_execute() (here via DATASET
75 dnl COPY), and then the input was actually used.
76 AT_SETUP([INPUT PROGRAM with VECTOR and EXECUTE])
77 AT_DATA([input-program.sps], [dnl
91 AT_CHECK([pspp -O format=csv input-program.sps], [0], [dnl
93 vec1,vec2,vec3,vec4,vec5
94 1.00,2.00,3.00,4.00,5.00
95 1.00,2.00,3.00,4.00,5.00
96 1.00,2.00,3.00,4.00,5.00
97 1.00,2.00,3.00,4.00,5.00
98 1.00,2.00,3.00,4.00,5.00
99 1.00,2.00,3.00,4.00,5.00
100 1.00,2.00,3.00,4.00,5.00
101 1.00,2.00,3.00,4.00,5.00
102 1.00,2.00,3.00,4.00,5.00
103 1.00,2.00,3.00,4.00,5.00
107 AT_SETUP([INPUT PROGRAM taking shorter of two files])
108 AT_DATA([input-program.sps], [dnl
110 DATA LIST NOTABLE FILE='a.txt'/X 1-10.
111 DATA LIST NOTABLE FILE='b.txt'/Y 1-10.
115 AT_DATA([short.txt], [dnl
120 AT_DATA([long.txt], [dnl
129 AT_CHECK([pspp -O format=csv input-program.sps], 0, [dnl
139 AT_CHECK([pspp -O format=csv input-program.sps], 0, [dnl
148 AT_SETUP([INPUT PROGRAM taking longer of two files])
149 AT_DATA([input-program.sps], [dnl
154 DATA LIST NOTABLE END=#A FILE='a.txt'/X 1-10.
157 DATA LIST NOTABLE END=#B FILE='b.txt'/Y 1-10.
166 AT_DATA([short.txt], [dnl
171 AT_DATA([long.txt], [dnl
181 AT_CHECK([pspp -O format=csv input-program.sps], 0, [dnl
193 AT_CHECK([pspp -O format=csv input-program.sps], 0, [dnl
204 AT_SETUP([INPUT PROGRAM concatenating two files - version 1])
205 AT_DATA([input-program.sps], [dnl
210 DATA LIST NOTABLE END=#B FILE='b.txt'/X 1-10.
217 DATA LIST NOTABLE END=#A FILE='a.txt'/X 1-10.
225 AT_DATA([a.txt], [dnl
230 AT_DATA([b.txt], [dnl
238 AT_CHECK([pspp -O format=csv input-program.sps], 0, [dnl
252 AT_SETUP([INPUT PROGRAM concatenating two files - version 2])
253 AT_DATA([input-program.sps], [dnl
258 DATA LIST NOTABLE END=#EOF FILE='a.txt'/X 1-10.
266 DATA LIST NOTABLE END=#EOF FILE='b.txt'/X 1-10.
276 AT_DATA([a.txt], [dnl
281 AT_DATA([b.txt], [dnl
289 AT_CHECK([pspp -O format=csv input-program.sps], 0, [dnl
303 AT_SETUP([INPUT PROGRAM generating data])
304 AT_DATA([input-program.sps], [dnl
315 AT_CHECK([pspp -O format=csv input-program.sps], 0, [dnl
331 AT_SETUP([INPUT PROGRAM unexpected end of file])
332 AT_DATA([input-program.sps], [dnl
335 AT_CHECK([pspp input-program.sps], 1, [dnl
336 error: INPUT PROGRAM: Unexpected end-of-file within INPUT PROGRAM.
341 AT_SETUP([INPUT PROGRAM no variables])
342 AT_DATA([input-program.sps], [dnl
347 AT_CHECK([pspp input-program.sps], 1, [dnl
348 input-program.sps:1.1-3.17: error: INPUT PROGRAM: Input program did not create
352 3 | END INPUT PROGRAM.
356 AT_SETUP([REREAD syntax errors])
357 AT_DATA([reread.sps], [dnl
359 REREAD COLUMN=1 COLUMN=**.
378 AT_DATA([insert.sps], [dnl
379 INSERT FILE='reread.sps' ERROR=IGNORE.
381 AT_CHECK([pspp --testing-mode -O format=csv insert.sps], [1], [dnl
382 "reread.sps:2.17-2.22: error: REREAD: Subcommand COLUMN may only be specified once.
383 2 | REREAD COLUMN=1 COLUMN=**.
386 "reread.sps:6.15-6.16: error: REREAD: Syntax error parsing expression.
387 6 | REREAD COLUMN=**.
390 "reread.sps:10.13-10.14: error: REREAD: Syntax error expecting a file name or handle name.
394 "reread.sps:14.17-14.18: error: REREAD: Syntax error expecting string.
395 14 | REREAD ENCODING=**.
398 "reread.sps:18.8-18.9: error: REREAD: Syntax error expecting COLUMN, FILE, or ENCODING.