tests/command/filter.sh

   1 #!/bin/sh
   2
   3 # This program tests ....
   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 activity="create program"
  50 cat > $TEMPDIR/filter.stat << EOF
  51 data list notable /x 1-2.
  52 begin data.
  53 1
  54 2
  55 3
  56 4
  57 5
  58 6
  59 7
  60 8
  61 9
  62 10
  63 end data.
  64 compute filter_$ = mod(x,2).
  65
  66 filter by filter_$.
  67 list.
  68 filter off.
  69 list.
  70 compute filter_$ = 1 - filter_$.
  71 filter by filter_$.
  72 list.
  73
  74 EOF
  75 if [ $? -ne 0 ] ; then no_result ; fi
  76
  77
  78 activity="run program"
  79 $SUPERVISOR $here/../src/pspp --testing-mode -o raw-ascii $TEMPDIR/filter.stat
  80 if [ $? -ne 0 ] ; then no_result ; fi
  81
  82
  83 activity="check results"
  84 diff -B -b $TEMPDIR/pspp.list - << EOF
  85  X FILTER_$
  86 -- --------
  87  1     1.00
  88  3     1.00
  89  5     1.00
  90  7     1.00
  91  9     1.00
  92
  93  X FILTER_$
  94 -- --------
  95  1     1.00
  96  2      .00
  97  3     1.00
  98  4      .00
  99  5     1.00
 100  6      .00
 101  7     1.00
 102  8      .00
 103  9     1.00
 104 10      .00
 105
 106  X FILTER_$
 107 -- --------
 108  2     1.00
 109  4     1.00
 110  6     1.00
 111  8     1.00
 112 10     1.00
 113
 114 EOF
 115 if [ $? -ne 0 ] ; then fail ; fi
 116
 117 pass;