Implemented the McNemar test. Closes bug #33242
[pspp-builds.git] / tests / language / data-io / print.at
1 AT_BANNER([PRINT and WRITE])
2
3 dnl These tests check unusual aspects of the PRINT and WRITE
4 dnl transformations:
5 dnl
6 dnl   - PRINT puts spaces between variables, unless a format
7 dnl     is specified explicitly.
8 dnl
9 dnl   - WRITE doesn't put space between variables.
10 dnl
11 dnl   - PRINT to an external file prefixes each line with a space.
12 dnl
13 dnl   - PRINT EJECT to an external file indicates a formfeed by a "1"
14 dnl     in the first column.
15 dnl
16 dnl   - WRITE writes out spaces for system-missing values, not a period.
17 dnl
18 dnl   - When no output is specified, an empty record is output.
19
20 AT_SETUP([PRINT numeric variables])
21 AT_DATA([print.sps], [dnl
22 data list notable /x y 1-2.
23 begin data.
24 12
25 34
26  6
27 7
28 90
29 end data.
30
31 print /x y.
32 print eject /x y 1-2.
33 print /x '-' y.
34 print.
35
36 execute.
37 ])
38 AT_CHECK([pspp -O format=csv print.sps], [0], [dnl
39 1 2 @&t@
40
41
42
43 12
44
45 1 -2 @&t@
46
47
48
49 3 4 @&t@
50
51
52
53 34
54
55 3 -4 @&t@
56
57
58
59 . 6 @&t@
60
61
62
63 .6
64
65 . -6 @&t@
66
67
68
69 7 . @&t@
70
71
72
73 7.
74
75 7 -. @&t@
76
77
78
79 9 0 @&t@
80
81
82
83 90
84
85 9 -0 @&t@
86
87
88 ])
89 AT_CLEANUP
90
91 AT_SETUP([PRINT string variables])
92 AT_DATA([print.sps], [dnl
93 DATA LIST FREE /s8 (a8) s10 (a10) vl255 (a255) vl258 (a258).
94 BEGIN DATA.
95 12345678
96 AaaaaaaaaZ
97 AbbbbMaryHadALittleLambbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbZ
98 AccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccZ
99 87654321
100 AnnnnnnnnZ
101 AmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmZ
102 AoooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooWhyIsItSoZ
103 END DATA.
104
105 print
106         outfile='print.txt'
107         /s10 * vl255 * vl258 *.
108
109 EXECUTE.
110 ])
111 AT_CHECK([pspp -O format=csv print.sps])
112 AT_CHECK([cat print.txt], [0], [dnl
113  AaaaaaaaaZ AbbbbMaryHadALittleLambbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbZ AccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccZ @&t@
114  AnnnnnnnnZ AmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmZ AoooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooWhyIsItSoZ @&t@
115 ])
116 AT_CLEANUP
117
118 AT_SETUP([PRINT to file])
119 AT_DATA([print.sps], [dnl
120 data list notable /x y 1-2.
121 begin data.
122 12
123 34
124  6
125 7
126 90
127 end data.
128
129 print outfile='print.out' /x y.
130 print eject outfile='print.out' /x y (f1,f1).
131 print outfile='print.out' /x '-' y.
132 print outfile='print.out'.
133
134 execute.
135 ])
136 AT_CHECK([pspp -O format=csv print.sps])
137 AT_CHECK([cat print.out], [0], [dnl
138  1 2 @&t@
139 112
140  1 -2 @&t@
141  @&t@
142  3 4 @&t@
143 134
144  3 -4 @&t@
145  @&t@
146  . 6 @&t@
147 1.6
148  . -6 @&t@
149  @&t@
150  7 . @&t@
151 17.
152  7 -. @&t@
153  @&t@
154  9 0 @&t@
155 190
156  9 -0 @&t@
157  @&t@
158 ])
159 AT_CLEANUP
160
161 dnl Tests for a bug which crashed when deallocating after a bad PRINT
162 dnl command.
163 AT_SETUP([PRINT crash bug])
164 AT_DATA([print.sps], [dnl
165 DATA LIST LIST NOTABLE /a * b *.
166 BEGIN DATA.
167 1 2
168 3 4
169 END DATA.
170
171 PRINT F8.2
172 LIST.
173 ])
174 AT_CHECK([pspp -O format=csv print.sps], [1], [dnl
175 print.sps:7.7-7.10: error: PRINT: Syntax error at `F8.2': expecting a valid subcommand.
176
177 Table: Data List
178 a,b
179 1.00,2.00
180 3.00,4.00
181 ])
182 AT_CLEANUP
183
184 AT_SETUP([WRITE to file])
185 AT_DATA([write.sps], [dnl
186 data list notable /x y 1-2.
187 begin data.
188 12
189 34
190  6
191 7
192 90
193 end data.
194
195 write outfile='write.out' /x y.
196 write outfile='write.out' /x y (2(f1)).
197 write outfile='write.out' /x '-' y.
198 write outfile='write.out'.
199
200 execute.
201 ])
202 AT_CHECK([pspp -O format=csv write.sps])
203 AT_CHECK([cat write.out], [0], [dnl
204 12
205 12
206 1-2
207
208 34
209 34
210 3-4
211
212  6
213  6
214  -6
215
216 7 @&t@
217 7 @&t@
218 7- @&t@
219
220 90
221 90
222 9-0
223
224 ])
225 AT_CLEANUP
226
227 AT_SETUP([PRINT overwrites file])
228 AT_DATA([output.txt], [abcdef
229 ])
230 AT_DATA([print.sps], [dnl
231 DATA LIST NOTABLE/x 1.
232 BEGIN DATA.
233 5
234 END DATA.
235 PRINT OUTFILE='output.txt'/x.
236 EXECUTE.
237 ])
238 AT_CHECK([pspp -O format=csv print.sps])
239 AT_CHECK([cat output.txt], [0], [ 5 @&t@
240 ])
241 AT_CLEANUP
242
243 AT_SETUP([PRINT overwrites file atomically])
244 AT_DATA([output.txt], [abcdef
245 ])
246 AT_DATA([print.sps],
247 [[DATA LIST NOTABLE/x 1.
248 BEGIN DATA.
249 5
250 END DATA.
251 PRINT OUTFILE='output.txt'/x.
252 HOST COMMAND=['kill -TERM $PPID'].
253 ]])
254 AT_CHECK([pspp -O format=csv print.sps], [143], [], [ignore])
255 AT_CHECK([cat output.txt], [0], [abcdef
256 ])
257 AT_CHECK(
258   [for file in *.tmp*; do if test -e $file; then echo $file; exit 1; fi; done])
259 AT_CLEANUP
260
261 AT_SETUP([PRINT to same file being read])
262 AT_DATA([data.txt], [5
263 ])
264 AT_DATA([print.sps], [dnl
265 DATA LIST FILE='data.txt' NOTABLE/x 1.
266 COMPUTE y = x + 1.
267 PRINT OUTFILE='data.txt'/y.
268 EXECUTE.
269 ])
270 AT_CHECK([pspp -O format=csv print.sps])
271 AT_CHECK([cat data.txt], [0], [     6.00 @&t@
272 ])
273 AT_CHECK(
274   [for file in *.tmp*; do if test -e $file; then echo $file; exit 1; fi; done])
275 AT_CLEANUP
276
277 AT_SETUP([PRINT to special file])
278 AT_SKIP_IF([test ! -c /dev/null])
279 AT_CHECK([ln -s /dev/null foo.out || exit 77])
280 AT_SKIP_IF([test ! -c foo.out])
281 AT_DATA([print.sps], [dnl
282 DATA LIST NOTABLE /x 1.
283 BEGIN DATA.
284 1
285 2
286 3
287 4
288 5
289 END DATA.
290 PRINT OUTFILE='foo.out'/x.
291 PRINT OUTFILE='foo2.out'/x.
292 EXECUTE.
293 ])
294 AT_CHECK([pspp -O format=csv print.sps])
295 AT_CHECK([cat foo2.out], [0], [dnl
296  1 @&t@
297  2 @&t@
298  3 @&t@
299  4 @&t@
300  5 @&t@
301 ])
302 ls -l foo.out foo2.out
303 AT_CHECK([test -c foo.out])
304 AT_CLEANUP