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([PRINT and WRITE])
19 dnl These tests check unusual aspects of the PRINT and WRITE
22 dnl - PRINT puts spaces between variables, unless a format
23 dnl is specified explicitly.
25 dnl - WRITE doesn't put space between variables.
27 dnl - PRINT to an external file prefixes each line with a space.
29 dnl - PRINT EJECT to an external file indicates a formfeed by a "1"
30 dnl in the first column.
32 dnl - WRITE writes out spaces for system-missing values, not a period.
34 dnl - When no output is specified, an empty record is output.
36 AT_SETUP([PRINT numeric variables])
37 AT_DATA([print.sps], [dnl
38 data list notable /x y 1-2.
54 AT_CHECK([pspp -O format=csv print.sps], [0], [dnl
107 AT_SETUP([PRINT string variables])
108 AT_DATA([print.sps], [dnl
109 DATA LIST FREE /s8 (a8) s10 (a10) vl255 (a255) vl258 (a258).
113 AbbbbMaryHadALittleLambbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbZ
114 AccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccZ
117 AmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmZ
118 AoooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooWhyIsItSoZ
123 /s10 * vl255 * vl258 *.
127 AT_CHECK([pspp -O format=csv print.sps])
128 AT_CHECK([cat print.txt], [0], [dnl
129 AaaaaaaaaZ AbbbbMaryHadALittleLambbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbZ AccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccZ @&t@
130 AnnnnnnnnZ AmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmZ AoooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooWhyIsItSoZ @&t@
134 AT_SETUP([PRINT to file])
135 AT_DATA([print.sps], [dnl
136 data list notable /x y 1-2.
145 print outfile='print.out' /x y.
146 print eject outfile='print.out' /x y (f1,f1).
147 print outfile='print.out' /x '-' y.
148 print outfile='print.out'.
152 AT_CHECK([pspp -O format=csv print.sps])
153 AT_CHECK([cat print.out], [0], [dnl
177 dnl Tests for a bug which crashed when deallocating after a bad PRINT
179 AT_SETUP([PRINT crash bug])
180 AT_DATA([print.sps], [dnl
181 DATA LIST LIST NOTABLE /a * b *.
190 AT_CHECK([pspp -O format=csv print.sps], [1], [dnl
191 print.sps:7.7-7.10: error: PRINT: Syntax error at `F8.2': expecting a valid subcommand.
200 AT_SETUP([WRITE to file])
201 AT_DATA([write.sps], [dnl
202 data list notable /x y 1-2.
211 write outfile='write.out' /x y.
212 write outfile='write.out' /x y (2(f1)).
213 write outfile='write.out' /x '-' y.
214 write outfile='write.out'.
218 AT_CHECK([pspp -O format=csv write.sps])
219 AT_CHECK([cat write.out], [0], [dnl
243 AT_SETUP([PRINT overwrites file])
244 AT_DATA([output.txt], [abcdef
246 AT_DATA([print.sps], [dnl
247 DATA LIST NOTABLE/x 1.
251 PRINT OUTFILE='output.txt'/x.
254 AT_CHECK([pspp -O format=csv print.sps])
255 AT_CHECK([cat output.txt], [0], [ 5 @&t@
259 AT_SETUP([PRINT overwrites file atomically])
260 AT_DATA([output.txt], [abcdef
263 [[DATA LIST NOTABLE/x 1.
267 PRINT OUTFILE='output.txt'/x.
268 HOST COMMAND=['kill -TERM $PPID'].
270 AT_CHECK([pspp -O format=csv print.sps], [143], [], [ignore])
271 AT_CHECK([cat output.txt], [0], [abcdef
274 [for file in *.tmp*; do if test -e $file; then echo $file; exit 1; fi; done])
277 AT_SETUP([PRINT to same file being read])
278 AT_DATA([data.txt], [5
280 AT_DATA([print.sps], [dnl
281 DATA LIST FILE='data.txt' NOTABLE/x 1.
283 PRINT OUTFILE='data.txt'/y.
286 AT_CHECK([pspp -O format=csv print.sps])
287 AT_CHECK([cat data.txt], [0], [ 6.00 @&t@
290 [for file in *.tmp*; do if test -e $file; then echo $file; exit 1; fi; done])
293 AT_SETUP([PRINT to special file])
294 AT_SKIP_IF([test ! -c /dev/null])
295 AT_CHECK([ln -s /dev/null foo.out || exit 77])
296 AT_SKIP_IF([test ! -c foo.out])
297 AT_DATA([print.sps], [dnl
298 DATA LIST NOTABLE /x 1.
306 PRINT OUTFILE='foo.out'/x.
307 PRINT OUTFILE='foo2.out'/x.
310 AT_CHECK([pspp -O format=csv print.sps])
311 AT_CHECK([cat foo2.out], [0], [dnl
318 ls -l foo.out foo2.out
319 AT_CHECK([test -c foo.out])
322 AT_SETUP([PRINT with special line ends])
323 AT_DATA([print.sps], [dnl
324 FILE HANDLE lf /NAME='lf.txt' /ENDS=LF.
325 FILE HANDLE crlf /NAME='crlf.txt' /ENDS=CRLF.
326 DATA LIST NOTABLE /x 1.
335 PRINT OUTFILE=crlf/x.
338 AT_CHECK([pspp -O format=csv print.sps])
339 AT_CHECK([cat lf.txt], [0], [dnl
346 AT_CHECK([tr '\r' R < crlf.txt], [0], [dnl