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