tests/bugs/t-test-alpha.sh

   1 #!/bin/sh
   2
   3 # This program tests that the T-TEST works when the independent
   4 # variable is alpha
   5 # BUG #11227
   6
   7 TEMPDIR=/tmp/pspp-tst-$$
   8 TESTFILE=$TEMPDIR/`basename $0`.sps
   9
  10 here=`pwd`;
  11
  12 # ensure that top_srcdir is absolute
  13 cd $top_srcdir; top_srcdir=`pwd`
  14
  15 STAT_CONFIG_PATH=$top_srcdir/config
  16 export STAT_CONFIG_PATH
  17
  18
  19 cleanup()
  20 {
  21      cd /
  22      rm -rf $TEMPDIR
  23 }
  24
  25
  26 fail()
  27 {
  28     echo $activity
  29     echo FAILED
  30     cleanup;
  31     exit 1;
  32 }
  33
  34
  35 no_result()
  36 {
  37     echo $activity
  38     echo NO RESULT;
  39     cleanup;
  40     exit 2;
  41 }
  42
  43 pass()
  44 {
  45     cleanup;
  46     exit 0;
  47 }
  48
  49 mkdir -p $TEMPDIR
  50
  51 cd $TEMPDIR
  52
  53 activity="create program"
  54 cat > $TESTFILE <<EOF
  55 data list list /ID * INDEP (a1) DEP1 * DEP2 *.
  56 begin data.
  57 1  'a' 1 3
  58 2  'a' 2 4
  59 3  'a' 2 4
  60 4  'a' 2 4
  61 5  'a' 3 5
  62 6  'b' 3 1
  63 7  'b' 4 2
  64 8  'b' 4 2
  65 9  'b' 4 2
  66 10 'b' 5 3
  67 11 'c' 2 2
  68 end data.
  69
  70
  71 t-test /GROUPS=indep('a','b') /var=dep1 dep2.
  72 EOF
  73 if [ $? -ne 0 ] ; then no_result ; fi
  74
  75
  76 activity="run program"
  77 $SUPERVISOR $here/../src/pspp -o raw-ascii $TESTFILE
  78 if [ $? -ne 0 ] ; then no_result ; fi
  79
  80 activity="compare output"
  81 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
  82 diff  -b $TEMPDIR/pspp.list - <<EOF
  83 1.1 DATA LIST.  Reading free-form data from INLINE.
  84 +--------+------+
  85 |Variable|Format|
  86 #========#======#
  87 |ID      |F8.0  |
  88 |INDEP   |A1    |
  89 |DEP1    |F8.0  |
  90 |DEP2    |F8.0  |
  91 +--------+------+
  92 2.1 T-TEST.  Group Statistics
  93 #==========#=#====#==============#========#
  94 #     INDEP|N|Mean|Std. Deviation|SE. Mean#
  95 #==========#=#====#==============#========#
  96 #DEP1 a    |5|2.00|          .707|    .316#
  97 #     b    |5|4.00|          .707|    .316#
  98 #DEP2 a    |5|4.00|          .707|    .316#
  99 #     b    |5|2.00|          .707|    .316#
 100 #==========#=#====#==============#========#
 101 2.2 T-TEST.  Independent Samples Test
 102 #===============================#==========#===============================================================================#
 103 #                               # Levene's |                          t-test for Equality of Means                         #
 104 #                               #----+-----+------+-----+---------------+---------------+---------------------+------------#
 105 #                               #    |     |      |     |               |               |                     |    95%     #
 106 #                               #    |     |      |     |               |               |                     +------+-----#
 107 #                               # F  | Sig.|   t  |  df |Sig. (2-tailed)|Mean Difference|Std. Error Difference| Lower|Upper#
 108 #===============================#====#=====#======#=====#===============#===============#=====================#======#=====#
 109 #DEP1Equal variances assumed    #.000|1.000|-4.472|    8|           .002|         -2.000|                 .447|-3.031|-.969#
 110 #    Equal variances not assumed#    |     |-4.472|8.000|           .002|         -2.000|                 .447|-3.031|-.969#
 111 #DEP2Equal variances assumed    #.000|1.000| 4.472|    8|           .002|          2.000|                 .447|  .969|3.031#
 112 #    Equal variances not assumed#    |     | 4.472|8.000|           .002|          2.000|                 .447|  .969|3.031#
 113 #===============================#====#=====#======#=====#===============#===============#=====================#======#=====#
 114 EOF
 115 if [ $? -ne 0 ] ; then fail ; fi
 116
 117
 118 pass