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 AT_CLEANUP
  18
  19 dnl Tests for bug #21108, 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 LIST NOTABLE /x.
  25 END FILE.
  26 END INPUT PROGRAM.
  27
  28 DESCRIPTIVES x.
  29 ])
  30 AT_CHECK([pspp -O format=csv input-program.sps], [1], [dnl
  31 error: DESCRIPTIVES: Syntax error at end of input: expecting `BEGIN'.
  32 ])
  33 AT_CLEANUP