tests/command/sample.sh

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