tests/command/t-test-paired-missing-list.sh

   1 #!/bin/sh
   2
   3 # This program tests that the T-TEST /PAIRS command works OK
   4 # when there is listwise missing data involved.
   5
   6 TEMPDIR=/tmp/pspp-tst-$$
   7 TESTFILE=$TEMPDIR/`basename $0`.sps
   8
   9 # ensure that top_builddir  are absolute
  10 if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
  11 if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
  12 top_builddir=`cd $top_builddir; pwd`
  13 PSPP=$top_builddir/src/ui/terminal/pspp
  14
  15 # ensure that top_srcdir is absolute
  16 top_srcdir=`cd $top_srcdir; pwd`
  17
  18 STAT_CONFIG_PATH=$top_srcdir/config
  19 export STAT_CONFIG_PATH
  20
  21
  22 cleanup()
  23 {
  24      cd /
  25      rm -rf $TEMPDIR
  26 }
  27
  28
  29 fail()
  30 {
  31     echo $activity
  32     echo FAILED
  33     cleanup;
  34     exit 1;
  35 }
  36
  37
  38 no_result()
  39 {
  40     echo $activity
  41     echo NO RESULT;
  42     cleanup;
  43     exit 2;
  44 }
  45
  46 pass()
  47 {
  48     cleanup;
  49     exit 0;
  50 }
  51
  52 mkdir -p $TEMPDIR
  53
  54 cd $TEMPDIR
  55
  56 activity="create program 1"
  57 cat > $TESTFILE <<EOF
  58 data list list /id * a * b * c * d *.
  59 begin data.
  60 1 2.0 3.0 4.0 4.0
  61 2 1.0 2.0 5.1 3.9
  62 3 2.0 4.5 5.2 3.8
  63 4 2.0 4.5 5.3 3.7
  64 5 3.0 6.0 5.9 3.6
  65 end data.
  66
  67 t-test /PAIRS a b with c d (PAIRED).
  68 EOF
  69 if [ $? -ne 0 ] ; then no_result ; fi
  70
  71
  72 activity="run program 1"
  73 $SUPERVISOR $PSPP --testing-mode $TESTFILE
  74 if [ $? -ne 0 ] ; then no_result ; fi
  75
  76 activity="copy output"
  77 mv $TEMPDIR/pspp.list $TEMPDIR/ref.list
  78 if [ $? -ne 0 ] ; then no_result ; fi
  79
  80 activity="create program 2"
  81 cat > $TESTFILE <<EOF
  82 data list list /id * a * b * c * d *.
  83 begin data.
  84 1 2.0 3.0 4.0 4.0
  85 2 1.0 2.0 5.1 3.9
  86 3 2.0 4.5 5.2 3.8
  87 4 2.0 4.5 5.3 3.7
  88 5 3.0 6.0 5.9 3.6
  89 6 3.0 6.0 5.9  .
  90 end data.
  91
  92
  93 t-test /MISSING=listwise /PAIRS a b with c d (PAIRED).
  94 EOF
  95 if [ $? -ne 0 ] ; then no_result ; fi
  96
  97
  98 activity="run program 2"
  99 $SUPERVISOR $PSPP --testing-mode $TESTFILE
 100 if [ $? -ne 0 ] ; then no_result ; fi
 101
 102
 103 activity="compare outputs"
 104 diff $TEMPDIR/ref.list $TEMPDIR/pspp.list
 105 if [ $? -ne 0 ] ; then fail ; fi
 106
 107
 108 pass