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 # ensure that top_builddir  are absolute
   9 if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
  10 if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
  11 top_builddir=`cd $top_builddir; pwd`
  12 PSPP=$top_builddir/src/ui/terminal/pspp
  13
  14 # ensure that top_srcdir is absolute
  15 top_srcdir=`cd $top_srcdir; pwd`
  16
  17 STAT_CONFIG_PATH=$top_srcdir/config
  18 export STAT_CONFIG_PATH
  19
  20
  21 cleanup()
  22 {
  23      cd /
  24      rm -rf $TEMPDIR
  25 }
  26
  27
  28 fail()
  29 {
  30     echo $activity
  31     echo FAILED
  32     cleanup;
  33     exit 1;
  34 }
  35
  36
  37 no_result()
  38 {
  39     echo $activity
  40     echo NO RESULT;
  41     cleanup;
  42     exit 2;
  43 }
  44
  45 pass()
  46 {
  47     cleanup;
  48     exit 0;
  49 }
  50
  51 mkdir -p $TEMPDIR
  52
  53 cd $TEMPDIR
  54
  55 activity="create program"
  56 cat > $TESTFILE << EOF
  57 data list notable /X 1-2.
  58 begin data.
  59 1
  60 2
  61 3
  62 4
  63 5
  64 6
  65 7
  66 8
  67 9
  68 10
  69 end data.
  70 compute FILTER_$ = mod(x,2).
  71
  72 filter by filter_$.
  73 list.
  74 filter off.
  75 list.
  76 compute filter_$ = 1 - filter_$.
  77 filter by filter_$.
  78 list.
  79
  80 EOF
  81 if [ $? -ne 0 ] ; then no_result ; fi
  82
  83
  84 activity="run program"
  85 $SUPERVISOR $PSPP --testing-mode -o raw-ascii $TESTFILE
  86 if [ $? -ne 0 ] ; then no_result ; fi
  87
  88
  89 activity="check results"
  90 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
  91 diff  -b $TEMPDIR/pspp.list - << EOF
  92  X FILTER_$
  93 -- --------
  94  1     1.00
  95  3     1.00
  96  5     1.00
  97  7     1.00
  98  9     1.00
  99  X FILTER_$
 100 -- --------
 101  1     1.00
 102  2      .00
 103  3     1.00
 104  4      .00
 105  5     1.00
 106  6      .00
 107  7     1.00
 108  8      .00
 109  9     1.00
 110 10      .00
 111  X FILTER_$
 112 -- --------
 113  2     1.00
 114  4     1.00
 115  6     1.00
 116  8     1.00
 117 10     1.00
 118 EOF
 119 if [ $? -ne 0 ] ; then fail ; fi
 120
 121 pass;