pintos-os.org Git - pspp/blob - tests/output/output.at

   1 AT_BANNER([output drivers])
   2
   3 m4_define([OUTPUT_UNWRITABLE_DIR],
   4   [AT_SETUP([output $1 to unwritable directory])
   5    mkdir unwritable
   6    chmod u-w unwritable
   7    AT_SKIP_IF([: > unwritable/test])
   8    AT_DATA([unwritable.sps], [dnl
   9 data list /x 1.
  10 begin data.
  11 1
  12 2
  13 3
  14 end data.
  15 frequencies x/histogram.
  16 ])
  17    dnl PSPP will fail to create the output file.  Currently this doesn't cause
  18    dnl PSPP's exit status to be nonzero, although this is arguably incorrect.
  19    dnl At any rate, PSPP should not crash.
  20    AT_CHECK([cd unwritable && pspp -o pspp.$1 ../unwritable.sps], [0],
  21             [ignore], [ignore])
  22    AT_CLEANUP])
  23
  24 OUTPUT_UNWRITABLE_DIR([csv])
  25 OUTPUT_UNWRITABLE_DIR([html])
  26 OUTPUT_UNWRITABLE_DIR([odt])
  27 OUTPUT_UNWRITABLE_DIR([pdf])
  28 OUTPUT_UNWRITABLE_DIR([txt])