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