tests/language/command.at

   1 AT_BANNER([ERASE])
   2
   3 AT_SETUP([ERASE -- safer mode])
   4 AT_DATA([foobar], [contents
   5 ])
   6 AT_DATA([erase.sps], [dnl
   7 set safer on
   8
   9 erase FILE='foobar'.
  10 ])
  11 AT_CHECK([pspp -O format=csv erase.sps], [1], [dnl
  12 erase.sps:3: error: ERASE: This command not allowed when the SAFER option is set.
  13 ])
  14 AT_CHECK([cat foobar], [0], [contents
  15 ])
  16 AT_CLEANUP
  17
  18 AT_SETUP([ERASE -- not safer mode])
  19 AT_DATA([foobar], [contents
  20 ])
  21 AT_CHECK([test -e foobar])
  22 AT_DATA([erase.sps], [dnl
  23 erase FILE='foobar'.
  24 ])
  25 AT_CHECK([pspp -O format=csv erase.sps])
  26 AT_CHECK([test ! -e foobar])
  27 AT_CLEANUP
  28
  29 AT_BANNER([N OF CASES])
  30
  31 AT_SETUP([N OF CASES])
  32 AT_DATA([n-of-cases.sps], [dnl
  33 INPUT PROGRAM.
  34 LOOP #i = 1 TO 100.
  35 COMPUTE x=#i.
  36 END CASE.
  37 END LOOP.
  38 END FILE.
  39 END INPUT PROGRAM.
  40
  41 N OF CASES 15.
  42
  43 LIST.
  44 ])
  45 AT_CHECK([pspp -O format=csv n-of-cases.sps], [0], [dnl
  46 Table: Data List
  47 x
  48 1.00
  49 2.00
  50 3.00
  51 4.00
  52 5.00
  53 6.00
  54 7.00
  55 8.00
  56 9.00
  57 10.00
  58 11.00
  59 12.00
  60 13.00
  61 14.00
  62 15.00
  63 ])
  64 AT_CLEANUP