tests/language/data-io/data-list.at

   1 AT_BANNER([DATA LIST])
   2
   3 AT_SETUP([DATA LIST LIST with explicit delimiters])
   4 AT_DATA([data-list.pspp], [dnl
   5 data list list ('|','X') /A B C D.
   6 begin data.
   7 1|23X45|2.03
   8 2X22|34|23|
   9 3|34|34X34
  10 end data.
  11
  12 list.
  13 ])
  14 AT_CHECK([pspp -O format=csv data-list.pspp], [0], [dnl
  15 Table: Reading free-form data from INLINE.
  16 Variable,Format
  17 A,F8.0
  18 B,F8.0
  19 C,F8.0
  20 D,F8.0
  21
  22 Table: Data List
  23 A,B,C,D
  24 1.00,23.00,45.00,2.03
  25 2.00,22.00,34.00,23.00
  26 3.00,34.00,34.00,34.00
  27 ])
  28 AT_CLEANUP
  29
  30 AT_SETUP([DATA LIST FREE with SKIP])
  31 AT_DATA([data-list.pspp], [dnl
  32 data list free skip=1/A B C D.
  33 begin data.
  34 # This record is ignored.
  35 ,1,2,3
  36 ,4,,5
  37 6
  38 7,
  39 8 9
  40 0,1 ,,,
  41 ,,,,
  42 2
  43
  44 3
  45 4
  46 5
  47 end data.
  48 list.
  49 ])
  50 AT_CHECK([pspp -O format=csv data-list.pspp], [0], [dnl
  51 Table: Data List
  52 A,B,C,D
  53 .  ,1.00,2.00,3.00
  54 .  ,4.00,.  ,5.00
  55 6.00,7.00,8.00,9.00
  56 .00,1.00,.  ,.  @&t@
  57 .  ,.  ,.  ,.  @&t@
  58 2.00,3.00,4.00,5.00
  59 ])
  60 AT_CLEANUP
  61
  62 AT_SETUP([DATA LIST LIST with SKIP and tab delimiter])
  63 AT_DATA([data-list.pspp], [dnl
  64 data list free (tab) skip=2/A B C D.
  65 begin data.
  66 # These records
  67 # are skipped.
  68 1       2       3       4
  69 1       2       3       @&t@
  70 1       2               4
  71 1       2               @&t@
  72 1               3       4
  73 1               3       @&t@
  74 1                       4
  75 1                       @&t@
  76         2       3       4
  77         2       3       @&t@
  78         2               4
  79         2               @&t@
  80                 3       4
  81                 3       @&t@
  82                         4
  83                         @&t@
  84 end data.
  85 list.
  86 ])
  87 AT_CHECK([pspp -O format=csv data-list.pspp], [0], [dnl
  88 Table: Data List
  89 A,B,C,D
  90 1.00,2.00,3.00,4.00
  91 1.00,2.00,3.00,.  @&t@
  92 1.00,2.00,.  ,4.00
  93 1.00,2.00,.  ,.  @&t@
  94 1.00,.  ,3.00,4.00
  95 1.00,.  ,3.00,.  @&t@
  96 1.00,.  ,.  ,4.00
  97 1.00,.  ,.  ,.  @&t@
  98 .  ,2.00,3.00,4.00
  99 .  ,2.00,3.00,.  @&t@
 100 .  ,2.00,.  ,4.00
 101 .  ,2.00,.  ,.  @&t@
 102 .  ,.  ,3.00,4.00
 103 .  ,.  ,3.00,.  @&t@
 104 .  ,.  ,.  ,4.00
 105 .  ,.  ,.  ,.  @&t@
 106 ])
 107 AT_CLEANUP
 108
 109 AT_SETUP([DATA LIST FIXED with multiple records per case])
 110 AT_DATA([data-list.pspp], [dnl
 111 data list fixed notable
 112         /1 start 1-20 (adate)
 113         /2 end 1-20 (adate)
 114         /3 count 1-3.
 115 begin data.
 116 07-22-2007
 117 10-06-2007
 118 321
 119 07-14-1789
 120 08-26-1789
 121 4
 122 01-01-1972
 123 12-31-1999
 124 682
 125 end data.
 126 list.
 127 ])
 128 AT_CHECK([pspp -O format=csv data-list.pspp], [0], [dnl
 129 Table: Data List
 130 start,end,count
 131 07/22/2007,10/06/2007,321
 132 07/14/1789,08/26/1789,4
 133 01/01/1972,12/31/1999,682
 134 ])
 135 AT_CLEANUP
 136
 137 AT_SETUP([DATA LIST FIXED with empty trailing record])
 138 AT_DATA([data-list.pspp], [dnl
 139 data list fixed notable records=2/x 1 y 2.
 140 begin data.
 141 12
 142
 143 34
 144
 145 56
 146
 147 78
 148
 149 90
 150
 151 end data.
 152 list.
 153 ])
 154 AT_CHECK([pspp -O format=csv data-list.pspp], [0], [dnl
 155 Table: Data List
 156 x,y
 157 1,2
 158 3,4
 159 5,6
 160 7,8
 161 9,0
 162 ])
 163 AT_CLEANUP