tests/command/data-list.sh

   1 #!/bin/sh
   2
   3 # This program tests the DATA LIST input program.
   4
   5 TEMPDIR=/tmp/pspp-tst-$$
   6 TESTFILE=$TEMPDIR/`basename $0`.sps
   7
   8 here=`pwd`;
   9
  10 # ensure that top_srcdir is absolute
  11 cd $top_srcdir; top_srcdir=`pwd`
  12
  13 STAT_CONFIG_PATH=$top_srcdir/config
  14 export STAT_CONFIG_PATH
  15
  16
  17 cleanup()
  18 {
  19      cd /
  20      rm -rf $TEMPDIR
  21 }
  22
  23
  24 fail()
  25 {
  26     echo $activity
  27     echo FAILED
  28     cleanup;
  29     exit 1;
  30 }
  31
  32
  33 no_result()
  34 {
  35     echo $activity
  36     echo NO RESULT;
  37     cleanup;
  38     exit 2;
  39 }
  40
  41 pass()
  42 {
  43     cleanup;
  44     exit 0;
  45 }
  46
  47 mkdir -p $TEMPDIR
  48
  49 cd $TEMPDIR
  50
  51 # Create command file.
  52 activity="create program"
  53 cat > $TESTFILE << EOF
  54 data list list ('|','X') /A B C D.
  55 begin data.
  56 1|23X45|2.03
  57 2X22|34|23|
  58 3|34|34X34
  59 end data.
  60
  61 list.
  62
  63 data list free/A B C D.
  64 begin data.
  65 ,1,2,3
  66 ,4,,5
  67 6
  68 7,
  69 8 9
  70 0,1,,,
  71 ,,,,
  72 2
  73
  74 3
  75 4
  76 5
  77 end data.
  78 list.
  79
  80 data list free (tab)/A B C D.
  81 begin data.
  82 1       2       3       4
  83 1       2       3
  84 1       2               4
  85 1       2
  86 1               3       4
  87 1               3
  88 1                       4
  89 1
  90         2       3       4
  91         2       3
  92         2               4
  93         2
  94                 3       4
  95                 3
  96                         4
  97
  98 end data.
  99 list.
 100 EOF
 101 if [ $? -ne 0 ] ; then no_result ; fi
 102
 103
 104 activity="run program"
 105 $SUPERVISOR $here/../src/pspp --testing-mode -o raw-ascii --testing-mode $TESTFILE
 106 if [ $? -ne 0 ] ; then fail ; fi
 107
 108 activity="compare output"
 109 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
 110 diff -b  $TEMPDIR/pspp.list - << EOF
 111 1.1 DATA LIST.  Reading free-form data from INLINE.
 112 +--------+------+
 113 |Variable|Format|
 114 #========#======#
 115 |A       |F8.0  |
 116 |B       |F8.0  |
 117 |C       |F8.0  |
 118 |D       |F8.0  |
 119 +--------+------+
 120        A        B        C        D
 121 -------- -------- -------- --------
 122     1.00    23.00    45.00     2.03
 123     2.00    22.00    34.00    23.00
 124     3.00    34.00    34.00    34.00
 125        A        B        C        D
 126 -------- -------- -------- --------
 127      .       1.00     2.00     3.00
 128      .       4.00      .       5.00
 129     6.00     7.00     8.00     9.00
 130      .00     1.00      .        .
 131      .        .        .        .
 132     2.00     3.00     4.00     5.00
 133        A        B        C        D
 134 -------- -------- -------- --------
 135     1.00     2.00     3.00     4.00
 136     1.00     2.00     3.00      .
 137     1.00     2.00      .       4.00
 138     1.00     2.00      .        .
 139     1.00      .       3.00     4.00
 140     1.00      .       3.00      .
 141     1.00      .        .       4.00
 142     1.00      .        .        .
 143      .       2.00     3.00     4.00
 144      .       2.00     3.00      .
 145      .       2.00      .       4.00
 146      .       2.00      .        .
 147      .        .       3.00     4.00
 148      .        .       3.00      .
 149      .        .        .       4.00
 150      .        .        .        .
 151 EOF
 152 if [ $? -ne 0 ] ; then fail ; fi
 153
 154 pass;