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