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([INSERT])
18 dnl Create a file "batch.sps" that is valid syntax only in batch mode.
19 m4_define([CREATE_BATCH_SPS],
20 [AT_DATA([batch.sps], [dnl
30 AT_SETUP([INSERT SYNTAX=INTERACTIVE])
32 AT_DATA([insert.sps], [dnl
38 AT_CHECK([pspp -o pspp.csv insert.sps], [1], [dnl
39 batch.sps:2.1-2.4: error: INPUT PROGRAM: Syntax error at `loop': expecting end of command.
40 batch.sps:3: error: COMPUTE: COMPUTE is allowed only after the active dataset has been defined or inside INPUT PROGRAM.
41 batch.sps:4: error: END CASE: END CASE is allowed only inside INPUT PROGRAM.
42 insert.sps:4: error: LIST: LIST is allowed only after the active dataset has been defined.
46 AT_SETUP([INSERT SYNTAX=BATCH])
48 AT_DATA([insert.sps], [dnl
54 AT_CHECK([pspp -o pspp.csv insert.sps])
55 AT_CHECK([cat pspp.csv], [0], [dnl
66 AT_SETUP([INSERT CD=NO])
67 AT_DATA([insert.sps], [INSERT FILE='Dir1/foo.sps'.
71 AT_DATA([Dir1/foo.sps], [INSERT FILE='bar.sps' CD=NO.
73 AT_DATA([Dir1/bar.sps],
81 AT_CHECK([pspp -o pspp.csv insert.sps], [1], [dnl
82 Dir1/foo.sps:1: error: INSERT: Can't find `bar.sps' in include file search path.
83 insert.sps:2: error: LIST: LIST is allowed only after the active dataset has been defined.
87 AT_SETUP([INSERT CD=YES])
88 AT_DATA([insert.sps], [INSERT FILE='Dir1/foo.sps' CD=YES.
92 AT_DATA([Dir1/foo.sps], [INSERT FILE='bar.sps'.
94 AT_DATA([Dir1/bar.sps],
102 AT_CHECK([pspp -o pspp.csv insert.sps])
103 AT_CHECK([cat pspp.csv], [0], [dnl
104 Table: Reading free-form data from INLINE.
116 m4_define([CREATE_ERROR_SPS],
117 [AT_DATA([error.sps], [dnl
118 DATA LIST NOTABLE LIST /x *.
125 * The following line is erroneous
131 AT_SETUP([INSERT ERROR=STOP])
133 AT_DATA([insert.sps], [INSERT FILE='error.sps' ERROR=STOP.
135 AT_CHECK([pspp -o pspp.csv insert.sps], [1], [dnl
136 error.sps:10: error: DISPLAY: AKSDJ is not a variable name.
137 warning: Error encountered while ERROR=STOP is effective.
141 AT_SETUP([INSERT ERROR=CONTINUE])
143 AT_DATA([insert.sps], [INSERT FILE='error.sps' ERROR=CONTINUE.
145 AT_CHECK([pspp -o pspp.csv insert.sps], [1], [dnl
146 error.sps:10: error: DISPLAY: AKSDJ is not a variable name.
148 AT_CHECK([cat pspp.csv], [0], [dnl
149 error.sps:10: error: DISPLAY: AKSDJ is not a variable name.
159 dnl Test for regression against bug #24569 in which PSPP crashed
160 dnl upon attempt to insert a nonexistent file.
161 AT_SETUP([INSERT nonexistent file])
162 AT_DATA([insert.sps], [dnl
170 AT_CHECK([pspp -O format=csv insert.sps], [1], [dnl
171 insert.sps:2: error: INSERT: Can't find `nonexistent' in include file search path.
173 insert.sps:6: error: LIST: LIST is allowed only after the active dataset has been defined.
178 dnl A test to check the INCLUDE command complete with the
179 dnl syntax and function of the ENCODING subcommand.
180 AT_SETUP([INCLUDE full check])
181 AT_DATA([two-utf8.sps], [dnl
185 AT_DATA([include.sps], [dnl
188 include FILE='two-latin1.sps' ENCODING='ISO_8859-1'.
191 AT_CHECK([iconv -f UTF-8 -t iso-8859-1 two-utf8.sps > two-latin1.sps], [0], [])
193 AT_CHECK([pspp -O format=csv include.sps], [0], [dnl
203 dnl Test for a bug where insert crashed on an unterminated string input
204 AT_SETUP([INSERT unterminated string])
206 AT_DATA([insert.sps], [INSERT FILE=7bar.sps' CD=NO.
209 AT_CHECK([pspp -O format=csv insert.sps], [1], [ignore])