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

   1 AT_BANNER([BEGIN DATA])
   2
   3 # BEGIN DATA can run as a command in itself, or it can appear as part
   4 # of the first procedure.  First, test it after a procedure.
   5 AT_SETUP([BEGIN DATA as part of a procedure])
   6 AT_DATA([begin-data.sps], [dnl
   7 TITLE 'Test BEGIN DATA ... END DATA'.
   8
   9 DATA LIST /a b 1-2.
  10 LIST.
  11 BEGIN DATA.
  12 12
  13 34
  14 56
  15 78
  16 90
  17 END DATA.
  18 ])
  19 AT_CHECK([pspp -O format=csv begin-data.sps], [0], [dnl
  20 Title: Test BEGIN DATA ... END DATA
  21
  22 Table: Reading 1 record from INLINE.
  23 Variable,Record,Columns,Format
  24 a,1,1-  1,F1.0
  25 b,1,2-  2,F1.0
  26
  27 Table: Data List
  28 a,b
  29 1,2
  30 3,4
  31 5,6
  32 7,8
  33 9,0
  34 ])
  35 AT_CLEANUP
  36
  37 # Also test BEGIN DATA as an independent command.
  38 AT_SETUP([BEGIN DATA as an independent command])
  39 AT_DATA([begin-data.sps], [dnl
  40 data list /A B 1-2.
  41 begin data.
  42 09
  43 87
  44 65
  45 43
  46 21
  47 end data.
  48 list.
  49 ])
  50 AT_CHECK([pspp -O format=csv begin-data.sps], [0], [dnl
  51 Table: Reading 1 record from INLINE.
  52 Variable,Record,Columns,Format
  53 A,1,1-  1,F1.0
  54 B,1,2-  2,F1.0
  55
  56 Table: Data List
  57 A,B
  58 0,9
  59 8,7
  60 6,5
  61 4,3
  62 2,1
  63 ])
  64 AT_CLEANUP