tests/language/data-io/print-space.at

   1 AT_BANNER([PRINT SPACE])
   2
   3 AT_SETUP([PRINT SPACE without arguments])
   4 AT_DATA([print-space.sps], [dnl
   5 DATA LIST NOTABLE/x 1.
   6 BEGIN DATA.
   7 1
   8 2
   9 END DATA.
  10 PRINT/x.
  11 PRINT SPACE.
  12 EXECUTE.
  13 ])
  14 AT_CHECK([pspp -O format=csv print-space.sps], [0], [dnl
  15 1 @&t@
  16
  17
  18
  19 2 @&t@
  20
  21
  22 ])
  23 AT_CLEANUP
  24
  25 AT_SETUP([PRINT SPACE with number])
  26 AT_DATA([print-space.sps], [dnl
  27 DATA LIST NOTABLE/x 1.
  28 BEGIN DATA.
  29 1
  30 2
  31 END DATA.
  32 PRINT/x.
  33 PRINT SPACE 2.
  34 EXECUTE.
  35 ])
  36 AT_CHECK([pspp -O format=csv print-space.sps], [0], [dnl
  37 1 @&t@
  38
  39
  40
  41
  42
  43 2 @&t@
  44
  45
  46
  47
  48 ])
  49 AT_CLEANUP
  50
  51 AT_SETUP([PRINT SPACE to file])
  52 AT_CAPTURE_FILE([output.txt])
  53 AT_DATA([print-space.sps], [dnl
  54 DATA LIST NOTABLE/x 1.
  55 BEGIN DATA.
  56 1
  57 2
  58 END DATA.
  59 PRINT OUTFILE='output.txt'/x.
  60 PRINT SPACE OUTFILE='output.txt'.
  61 EXECUTE.
  62 ])
  63 AT_CHECK([pspp -O format=csv print-space.sps])
  64 AT_CHECK([cat output.txt], [0], [dnl
  65  1 @&t@
  66  @&t@
  67  2 @&t@
  68  @&t@
  69 ])
  70 AT_CLEANUP
  71
  72 AT_SETUP([PRINT SPACE to file with number])
  73 AT_CAPTURE_FILE([output.txt])
  74 AT_DATA([print-space.sps], [dnl
  75 DATA LIST NOTABLE/x 1.
  76 BEGIN DATA.
  77 1
  78 2
  79 END DATA.
  80 PRINT OUTFILE='output.txt'/x.
  81 PRINT SPACE OUTFILE='output.txt' 2.
  82 EXECUTE.
  83 ])
  84 AT_CHECK([pspp -O format=csv print-space.sps])
  85 AT_CHECK([cat output.txt], [0], [dnl
  86  1 @&t@
  87  @&t@
  88  @&t@
  89  2 @&t@
  90  @&t@
  91  @&t@
  92 ])
  93 AT_CLEANUP