tests/language/data-io/inpt-pgm.at

   1 AT_BANNER([INPUT PROGRAM])
   2
   3 dnl Tests for a bug which caused a crash when
   4 dnl reading invalid INPUT PROGRAM syntax.
   5 AT_SETUP([INPUT PROGRAM invalid syntax crash])
   6 AT_DATA([input-program.sps], [dnl
   7 INPUT PROGRAM.
   8 DATA LIST NOTABLE /a 1-9.
   9 BEGIN DATA
  10 123456789
  11 END DATA.
  12 END INPUT PROGRAM.
  13 ])
  14 AT_CHECK([pspp -O format=csv input-program.sps], [1], [dnl
  15 input-program.sps:3: error: BEGIN DATA: BEGIN DATA is not allowed inside INPUT PROGRAM.
  16
  17 input-program.sps:4: error: Unknown command `123456789'.
  18
  19 input-program.sps:5: error: Unknown command `END DATA'.
  20 ])
  21 AT_CLEANUP
  22
  23 dnl Tests for bug #21108, a crash when
  24 dnl reading invalid INPUT PROGRAM syntax.
  25 AT_SETUP([INPUT PROGRAM invalid syntax crash])
  26 AT_DATA([input-program.sps], [dnl
  27 INPUT PROGRAM.
  28 DATA LIST LIST NOTABLE /x.
  29 END FILE.
  30 END INPUT PROGRAM.
  31
  32 DESCRIPTIVES x.
  33 ])
  34 AT_CHECK([pspp -O format=csv input-program.sps], [1], [dnl
  35 error: DESCRIPTIVES: Syntax error at end of file: expecting `BEGIN'.
  36 ])
  37 AT_CLEANUP