tests/command/get-data-txt.sh

   1 #!/bin/sh
   2
   3 # This program tests features of GET DATA /TYPE=TXT input program that
   4 # it has in common with DATA LIST, using tests drawn from
   5 # data-list.sh.
   6
   7 TEMPDIR=/tmp/pspp-tst-$$
   8 TESTFILE=$TEMPDIR/`basename $0`.sps
   9
  10 # ensure that top_builddir  are absolute
  11 if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
  12 if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
  13 top_builddir=`cd $top_builddir; pwd`
  14 PSPP=$top_builddir/src/ui/terminal/pspp
  15
  16 # ensure that top_srcdir is absolute
  17 top_srcdir=`cd $top_srcdir; pwd`
  18
  19 STAT_CONFIG_PATH=$top_srcdir/config
  20 export STAT_CONFIG_PATH
  21
  22
  23 cleanup()
  24 {
  25      if [ x"$PSPP_TEST_NO_CLEANUP" != x ] ; then
  26         echo "NOT cleaning $TEMPDIR"
  27         return ;
  28      fi
  29      cd /
  30      rm -rf $TEMPDIR
  31 }
  32
  33
  34 fail()
  35 {
  36     echo $activity
  37     echo FAILED
  38     cleanup;
  39     exit 1;
  40 }
  41
  42
  43 no_result()
  44 {
  45     echo $activity
  46     echo NO RESULT;
  47     cleanup;
  48     exit 2;
  49 }
  50
  51 pass()
  52 {
  53     cleanup;
  54     exit 0;
  55 }
  56
  57 mkdir -p $TEMPDIR
  58
  59 cd $TEMPDIR
  60
  61 # Create command file.
  62 activity="create program"
  63 cat > $TESTFILE << EOF
  64 get data /type=txt /file=inline /delimiters="|X"
  65  /variables=A f7.2 B f7.2 C f7.2 D f7.2.
  66 begin data.
  67 1|23X45|2.03
  68 2X22|34|23|
  69 3|34|34X34
  70 end data.
  71
  72 list.
  73
  74 get data /type=txt /file=inline /delimiters=', ' /delcase=variables 4
  75  /firstcase=2 /variables=A f7.2 B f7.2 C f7.2 D f7.2.
  76 begin data.
  77 # This record is ignored.
  78 ,1,2,3
  79 ,4,,5
  80 6
  81 7,
  82 8 9
  83 0,1,,,
  84 ,,,,
  85 2
  86
  87 3
  88 4
  89 5
  90 end data.
  91 list.
  92
  93 get data /type=txt /file=inline /delimiters='\t' /delcase=variables 4
  94  /firstcase=3 /variables=A f7.2 B f7.2 C f7.2 D f7.2.
  95 begin data.
  96 # These records
  97 # are skipped.
  98 1       2       3       4
  99 1       2       3
 100 1       2               4
 101 1       2
 102 1               3       4
 103 1               3
 104 1                       4
 105 1
 106         2       3       4
 107         2       3
 108         2               4
 109         2
 110                 3       4
 111                 3
 112                         4
 113
 114 end data.
 115 list.
 116
 117 get data /type=txt /file=inline /arrangement=fixed /fixcase=3 /variables=
 118         /1 start 0-19 adate
 119         /2 end 0-19 adate
 120         /3 count 0-2 f.
 121 begin data.
 122 07-22-2007
 123 10-06-2007
 124 321
 125 07-14-1789
 126 08-26-1789
 127 4
 128 01-01-1972
 129 12-31-1999
 130 682
 131 end data.
 132 list.
 133
 134 get data /type=txt /file=inline /arrangement=fixed /fixcase=2 /variables=
 135         /1 x 0 f
 136            y 1 f.
 137 begin data.
 138 12
 139
 140 34
 141
 142 56
 143
 144 78
 145
 146 90
 147
 148 end data.
 149 list.
 150 EOF
 151 if [ $? -ne 0 ] ; then no_result ; fi
 152
 153
 154 activity="run program"
 155 $SUPERVISOR $PSPP --testing-mode $TESTFILE
 156 if [ $? -ne 0 ] ; then fail ; fi
 157
 158 activity="compare output"
 159 diff -b  $TEMPDIR/pspp.csv - << EOF
 160 Table: Data List
 161 A,B,C,D
 162 1.00,23.00,45.00,2.03
 163 2.00,22.00,34.00,23.00
 164 3.00,34.00,34.00,34.00
 165
 166 Table: Data List
 167 A,B,C,D
 168 .  ,1.00,2.00,3.00
 169 .  ,4.00,.  ,5.00
 170 6.00,7.00,.  ,8.00
 171 9.00,.00,1.00,.
 172 .  ,.  ,.  ,.
 173 .  ,.  ,.  ,2.00
 174 .  ,3.00,4.00,5.00
 175
 176 Table: Data List
 177 A,B,C,D
 178 1.00,2.00,3.00,4.00
 179 1.00,2.00,3.00,.
 180 1.00,2.00,.  ,4.00
 181 1.00,2.00,.  ,.
 182 1.00,.  ,3.00,4.00
 183 1.00,.  ,3.00,.
 184 1.00,.  ,.  ,4.00
 185 1.00,.  ,.  ,.
 186 .  ,2.00,3.00,4.00
 187 .  ,2.00,3.00,.
 188 .  ,2.00,.  ,4.00
 189 .  ,2.00,.  ,.
 190 .  ,.  ,3.00,4.00
 191 .  ,.  ,3.00,.
 192 .  ,.  ,.  ,4.00
 193 .  ,.  ,.  ,.
 194
 195 Table: Data List
 196 start,end,count
 197 07/22/2007,10/06/2007,321
 198 07/14/1789,08/26/1789,4
 199 01/01/1972,12/31/1999,682
 200
 201 Table: Data List
 202 x,y
 203 1,2
 204 3,4
 205 5,6
 206 7,8
 207 9,0
 208 EOF
 209 if [ $? -ne 0 ] ; then fail ; fi
 210
 211 pass;