pintos-os.org Git - pspp/blob - tests/language/data-io/inpt-pgm.at

   1 dnl PSPP - a program for statistical analysis.
   2 dnl Copyright (C) 2017 Free Software Foundation, Inc.
   3 dnl
   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.
   8 dnl
   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.
  13 dnl
  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
  17 AT_BANNER([INPUT PROGRAM])
  18
  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
  23 INPUT PROGRAM.
  24 DATA LIST NOTABLE /a 1-9.
  25 BEGIN DATA
  26 123456789
  27 END DATA.
  28 END INPUT PROGRAM.
  29 ])
  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.
  32     3 | BEGIN DATA
  33       | ^~~~~~~~~~"
  34 ])
  35 AT_CLEANUP
  36
  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
  41 INPUT PROGRAM.
  42 DATA LIST LIST NOTABLE /x.
  43 END FILE.
  44 END INPUT PROGRAM.
  45
  46 DESCRIPTIVES x.
  47 ])
  48 AT_CHECK([pspp -O format=csv input-program.sps], [1], [dnl
  49 error: DESCRIPTIVES: At end of input: Syntax error expecting `BEGIN DATA'.
  50 ])
  51 AT_CLEANUP
  52
  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
  56 INPUT PROGRAM.
  57 STRING firstname lastname (a24) / address (a80).
  58 END INPUT PROGRAM.
  59 EXECUTE.
  60 ])
  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.
  63     1 | INPUT PROGRAM.
  64     2 | STRING firstname lastname (a24) / address (a80).
  65     3 | END INPUT PROGRAM."
  66
  67 "input-program.sps:4.1-4.7: error: EXECUTE: EXECUTE is allowed only after the active dataset has been defined.
  68     4 | EXECUTE.
  69       | ^~~~~~~"
  70 ])
  71 AT_CLEANUP
  72
  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
  78 INPUT PROGRAM.
  79 VECTOR vec(5).
  80 LOOP #c = 1 to 10.
  81  LOOP #v = 1 to 5.
  82   COMPUTE vec(#v) = #v.
  83  END LOOP.
  84  END CASE.
  85 END LOOP.
  86 END FILE.
  87 END INPUT PROGRAM.
  88 DATASET COPY x.
  89 LIST.
  90 ])
  91 AT_CHECK([pspp -O format=csv input-program.sps], [0], [dnl
  92 Table: Data List
  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
 104 ])
 105 AT_CLEANUP
 106
 107 AT_SETUP([INPUT PROGRAM taking shorter of two files])
 108 AT_DATA([input-program.sps], [dnl
 109 INPUT PROGRAM.
 110     DATA LIST NOTABLE FILE='a.txt'/X 1-10.
 111     DATA LIST NOTABLE FILE='b.txt'/Y 1-10.
 112 END INPUT PROGRAM.
 113 LIST.
 114 ])
 115 AT_DATA([short.txt], [dnl
 116 1
 117 2
 118 3
 119 ])
 120 AT_DATA([long.txt], [dnl
 121 4
 122 5
 123 6
 124 7
 125 ])
 126
 127 cp short.txt a.txt
 128 cp long.txt b.txt
 129 AT_CHECK([pspp -O format=csv input-program.sps], 0, [dnl
 130 Table: Data List
 131 X,Y
 132 1,4
 133 2,5
 134 3,6
 135 ])
 136
 137 cp short.txt b.txt
 138 cp long.txt a.txt
 139 AT_CHECK([pspp -O format=csv input-program.sps], 0, [dnl
 140 Table: Data List
 141 X,Y
 142 4,1
 143 5,2
 144 6,3
 145 ])
 146 AT_CLEANUP
 147
 148 AT_SETUP([INPUT PROGRAM taking longer of two files])
 149 AT_DATA([input-program.sps], [dnl
 150 INPUT PROGRAM.
 151     NUMERIC #A #B.
 152
 153     DO IF NOT #A.
 154         DATA LIST NOTABLE END=#A FILE='a.txt'/X 1-10.
 155     END IF.
 156     DO IF NOT #B.
 157         DATA LIST NOTABLE END=#B FILE='b.txt'/Y 1-10.
 158     END IF.
 159     DO IF #A AND #B.
 160         END FILE.
 161     END IF.
 162     END CASE.
 163 END INPUT PROGRAM.
 164 LIST.
 165 ])
 166 AT_DATA([short.txt], [dnl
 167 1
 168 2
 169 3
 170 ])
 171 AT_DATA([long.txt], [dnl
 172 4
 173 5
 174 6
 175 7
 176 8
 177 ])
 178
 179 cp short.txt a.txt
 180 cp long.txt b.txt
 181 AT_CHECK([pspp -O format=csv input-program.sps], 0, [dnl
 182 Table: Data List
 183 X,Y
 184 1,4
 185 2,5
 186 3,6
 187 .,7
 188 .,8
 189 ])
 190
 191 cp short.txt b.txt
 192 cp long.txt a.txt
 193 AT_CHECK([pspp -O format=csv input-program.sps], 0, [dnl
 194 Table: Data List
 195 X,Y
 196 4,1
 197 5,2
 198 6,3
 199 7,.
 200 8,.
 201 ])
 202 AT_CLEANUP
 203
 204 AT_SETUP([INPUT PROGRAM concatenating two files - version 1])
 205 AT_DATA([input-program.sps], [dnl
 206 INPUT PROGRAM.
 207     NUMERIC #A #B.
 208
 209     DO IF #A.
 210         DATA LIST NOTABLE END=#B FILE='b.txt'/X 1-10.
 211         DO IF #B.
 212             END FILE.
 213         ELSE.
 214             END CASE.
 215         END IF.
 216     ELSE.
 217         DATA LIST NOTABLE END=#A FILE='a.txt'/X 1-10.
 218         DO IF NOT #A.
 219             END CASE.
 220         END IF.
 221     END IF.
 222 END INPUT PROGRAM.
 223 LIST.
 224 ])
 225 AT_DATA([a.txt], [dnl
 226 1
 227 2
 228 3
 229 ])
 230 AT_DATA([b.txt], [dnl
 231 4
 232 5
 233 6
 234 7
 235 8
 236 ])
 237
 238 AT_CHECK([pspp -O format=csv input-program.sps], 0, [dnl
 239 Table: Data List
 240 X
 241 1
 242 2
 243 3
 244 4
 245 5
 246 6
 247 7
 248 8
 249 ])
 250 AT_CLEANUP
 251
 252 AT_SETUP([INPUT PROGRAM concatenating two files - version 2])
 253 AT_DATA([input-program.sps], [dnl
 254 INPUT PROGRAM.
 255     NUMERIC #EOF.
 256
 257     LOOP IF NOT #EOF.
 258         DATA LIST NOTABLE END=#EOF FILE='a.txt'/X 1-10.
 259         DO IF NOT #EOF.
 260             END CASE.
 261         END IF.
 262     END LOOP.
 263
 264     COMPUTE #EOF = 0.
 265     LOOP IF NOT #EOF.
 266         DATA LIST NOTABLE END=#EOF FILE='b.txt'/X 1-10.
 267         DO IF NOT #EOF.
 268             END CASE.
 269         END IF.
 270     END LOOP.
 271
 272     END FILE.
 273 END INPUT PROGRAM.
 274 LIST.
 275 ])
 276 AT_DATA([a.txt], [dnl
 277 1
 278 2
 279 3
 280 ])
 281 AT_DATA([b.txt], [dnl
 282 4
 283 5
 284 6
 285 7
 286 8
 287 ])
 288
 289 AT_CHECK([pspp -O format=csv input-program.sps], 0, [dnl
 290 Table: Data List
 291 X
 292 1
 293 2
 294 3
 295 4
 296 5
 297 6
 298 7
 299 8
 300 ])
 301 AT_CLEANUP
 302
 303 AT_SETUP([INPUT PROGRAM generating data])
 304 AT_DATA([input-program.sps], [dnl
 305 INPUT PROGRAM.
 306     LOOP #I=1 TO 10.
 307         COMPUTE X=#I.
 308         END CASE.
 309     END LOOP.
 310     END FILE.
 311 END INPUT PROGRAM.
 312 FORMAT X(F2).
 313 LIST.
 314 ])
 315 AT_CHECK([pspp -O format=csv input-program.sps], 0, [dnl
 316 Table: Data List
 317 X
 318 1
 319 2
 320 3
 321 4
 322 5
 323 6
 324 7
 325 8
 326 9
 327 10
 328 ])
 329 AT_CLEANUP
 330
 331 AT_SETUP([INPUT PROGRAM unexpected end of file])
 332 AT_DATA([input-program.sps], [dnl
 333 INPUT PROGRAM.
 334 ])
 335 AT_CHECK([pspp input-program.sps], 1, [dnl
 336 error: INPUT PROGRAM: Unexpected end-of-file within INPUT PROGRAM.
 337 ])
 338 AT_CLEANUP
 339
 340
 341 AT_SETUP([INPUT PROGRAM no variables])
 342 AT_DATA([input-program.sps], [dnl
 343 INPUT PROGRAM.
 344 END FILE.
 345 END INPUT PROGRAM.
 346 ])
 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
 349 any variables.
 350     1 | INPUT PROGRAM.
 351     2 | END FILE.
 352     3 | END INPUT PROGRAM.
 353 ])
 354 AT_CLEANUP
 355
 356 AT_SETUP([REREAD syntax errors])
 357 AT_DATA([reread.sps], [dnl
 358 INPUT PROGRAM.
 359 REREAD COLUMN=1 COLUMN=**.
 360 END INPUT PROGRAM.
 361
 362 INPUT PROGRAM.
 363 REREAD COLUMN=**.
 364 END INPUT PROGRAM.
 365
 366 INPUT PROGRAM.
 367 REREAD FILE=**.
 368 END INPUT PROGRAM.
 369
 370 INPUT PROGRAM.
 371 REREAD ENCODING=**.
 372 END INPUT PROGRAM.
 373
 374 INPUT PROGRAM.
 375 REREAD **.
 376 END INPUT PROGRAM.
 377 ])
 378 AT_DATA([insert.sps], [dnl
 379 INSERT FILE='reread.sps' ERROR=IGNORE.
 380 ])
 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=**.
 384       |                 ^~~~~~"
 385
 386 "reread.sps:6.15-6.16: error: REREAD: Syntax error parsing expression.
 387     6 | REREAD COLUMN=**.
 388       |               ^~"
 389
 390 "reread.sps:10.13-10.14: error: REREAD: Syntax error expecting a file name or handle name.
 391    10 | REREAD FILE=**.
 392       |             ^~"
 393
 394 "reread.sps:14.17-14.18: error: REREAD: Syntax error expecting string.
 395    14 | REREAD ENCODING=**.
 396       |                 ^~"
 397
 398 "reread.sps:18.8-18.9: error: REREAD: Syntax error expecting COLUMN, FILE, or ENCODING.
 399    18 | REREAD **.
 400       |        ^~"
 401 ])
 402 AT_CLEANUP