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