1 AT_BANNER([data input (data-in)])
3 dnl Some very old version of PSPP crashed reading big numbers,
4 dnl so this checks for regressions.
5 AT_SETUP([reading big numbers])
7 AT_DATA([bignum.txt], [dnl
39 1234567890123456789012
40 19999999999999999999999
41 123456789012345678901234
42 1999999999999999999999999
43 12345678901234567890123456
44 199999999999999999999999999
45 1234567890123456789012345678
46 19999999999999999999999999999
47 123456789012345678901234567890
48 1999999999999999999999999999999
49 12345678901234567890123456789012
50 199999999999999999999999999999999
51 1234567890123456789012345678901234
52 19999999999999999999999999999999999
53 123456789012345678901234567890123456
54 1999999999999999999999999999999999999
55 12345678901234567890123456789012345678
56 199999999999999999999999999999999999999
57 1234567890123456789012345678901234567890
58 1999999999999999999999999999999999999999
72 AT_DATA([bignum.sps], [dnl
73 title 'Test use of big numbers'.
75 *** Do the portable output.
76 data list file='bignum.txt'/BIGNUM 1-40.
79 *** Do the nonportable output for fun.
82 AT_CHECK([pspp -o pspp.csv bignum.sps], [0], [ignore])
85 AT_SETUP([binary and hexadecimal input (IB, PIB, and PIBHEX formats)])
86 AT_CHECK([$PERL -e 'print pack "n", $_ foreach 0...65535' > binhex-in.data])
87 AT_CHECK([wc -c < binhex-in.data], [0], [131072
89 AT_DATA([binhex-in.sps], [dnl
94 FILE HANDLE data/NAME='binhex-in.data'/MODE=IMAGE/LRECL=2.
95 DATA LIST FILE=data NOTABLE/ib 1-2 (IB) pib 1-2 (PIB) pibhex 1-2 (PIBHEX).
96 COMPUTE x=$CASENUM - 1.
97 PRINT OUTFILE='binhex-in.out'/x (PIBHEX4) ' ' ib pib pibhex.
100 AT_CHECK([gzip -cd < $top_srcdir/tests/data/binhex-in.expected.cmp.gz | \
101 $PERL -pe "printf ' %04X ', $.-1" > expout])
102 AT_CHECK([pspp -O format=csv binhex-in.sps], [0])
103 AT_CHECK([cat binhex-in.out], [0], [expout])
106 AT_SETUP([BCD input (P and PK formats)])
107 AT_CHECK([$PERL -e 'print pack "n", $_ foreach 0...65535' > bcd-in.data])
108 AT_CHECK([wc -c < bcd-in.data], [0], [131072
110 AT_DATA([bcd-in.sps], [dnl
112 SET MXWARNS=10000000.
114 FILE HANDLE data/NAME='bcd-in.data'/MODE=IMAGE/LRECL=2.
115 DATA LIST FILE=data NOTABLE/p 1-2 (P) pk 1-2 (PK).
116 COMPUTE x=$CASENUM - 1.
117 PRINT OUTFILE='bcd-in.out'/x (PIBHEX4) ' ' P PK.
120 AT_CHECK([gzip -cd < $top_srcdir/tests/data/bcd-in.expected.cmp.gz | \
121 $PERL -pe "printf ' %04X ', $.-1" > expout])
122 AT_CHECK([pspp -O format=csv bcd-in.sps])
123 AT_CHECK([cat bcd-in.out], [0], [expout])
126 AT_SETUP([legacy input (N and Z formats)])
127 AT_CHECK([$PERL -e 'print pack "n", $_ foreach 0...65535' > legacy-in.data])
128 AT_CHECK([wc -c < legacy-in.data], [0], [131072
130 AT_DATA([legacy-in.sps], [dnl
132 SET MXWARNS=10000000.
134 FILE HANDLE data/NAME='legacy-in.data'/MODE=IMAGE/LRECL=2.
135 DATA LIST NOTABLE FILE=data/n 1-2 (N) z 1-2 (z).
136 COMPUTE x=$CASENUM - 1.
137 PRINT OUTFILE='legacy-in.out'/x (PIBHEX4) ' ' N Z.
140 AT_CHECK([gzip -cd < $top_srcdir/tests/data/legacy-in.expected.cmp.gz | \
141 $PERL -pe "printf ' %04X ', $.-1" > expout])
142 AT_CHECK([pspp -O format=csv legacy-in.sps])
143 AT_CHECK([cat legacy-in.out], [0], [expout])
146 AT_SETUP([WKDAY input format])
147 AT_DATA([wkday.sps], [dnl
148 DATA LIST NOTABLE /wkday2 1-2 (wkday)
156 wkday10 1-10 (wkday).
169 FORMATS ALL (WKDAY2).
170 PRINT OUTFILE='wkday.out'/ALL.
173 AT_CHECK([pspp -O format=csv wkday.sps], [0], [dnl
174 wkday.sps:20.1-2: warning: Data for variable wkday2 is not valid as format WKDAY: Unrecognized weekday name. At least the first two letters of an English weekday name must be specified.
176 wkday.sps:20.1-3: warning: Data for variable wkday3 is not valid as format WKDAY: Unrecognized weekday name. At least the first two letters of an English weekday name must be specified.
178 wkday.sps:20.1-4: warning: Data for variable wkday4 is not valid as format WKDAY: Unrecognized weekday name. At least the first two letters of an English weekday name must be specified.
180 wkday.sps:20.1-5: warning: Data for variable wkday5 is not valid as format WKDAY: Unrecognized weekday name. At least the first two letters of an English weekday name must be specified.
182 wkday.sps:20.1-6: warning: Data for variable wkday6 is not valid as format WKDAY: Unrecognized weekday name. At least the first two letters of an English weekday name must be specified.
184 wkday.sps:20.1-7: warning: Data for variable wkday7 is not valid as format WKDAY: Unrecognized weekday name. At least the first two letters of an English weekday name must be specified.
186 wkday.sps:20.1-8: warning: Data for variable wkday8 is not valid as format WKDAY: Unrecognized weekday name. At least the first two letters of an English weekday name must be specified.
188 wkday.sps:20.1-9: warning: Data for variable wkday9 is not valid as format WKDAY: Unrecognized weekday name. At least the first two letters of an English weekday name must be specified.
190 wkday.sps:20.1-10: warning: Data for variable wkday10 is not valid as format WKDAY: Unrecognized weekday name. At least the first two letters of an English weekday name must be specified.
192 AT_CHECK([cat wkday.out], [0], [dnl
193 . . . . . . . . . @&t@
194 . . . . . . . . . @&t@
195 MO MO MO MO MO MO MO MO MO @&t@
196 TU TU TU TU TU TU TU TU TU @&t@
197 WE WE WE WE WE WE WE WE WE @&t@
198 TH TH TH TH TH TH TH TH TH @&t@
199 FR FR FR FR FR FR FR FR FR @&t@
200 SA SA SA SA SA SA SA SA SA @&t@
201 SU SU SU SU SU SU SU SU SU @&t@
202 . . . . . . . . . @&t@