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 diff -B -b $TEMPDIR/pspp.list - <<EOF
  82 1.1 DATA LIST.  Reading free-form data from the command file.
  83 +--------+------+
  84 |Variable|Format|
  85 #========#======#
  86 |ID      |F8.0  |
  87 |INDEP   |A1    |
  88 |DEP1    |F8.0  |
  89 |DEP2    |F8.0  |
  90 +--------+------+
  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
 102 2.2 T-TEST.  Independent Samples Test
 103 #===============================#==========#===============================================================================#
 104 #                               # Levene's |                          t-test for Equality of Means                         #
 105 #                               #----+-----+------+-----+---------------+---------------+---------------------+------------#
 106 #                               #    |     |      |     |               |               |                     |    95%     #
 107 #                               #    |     |      |     |               |               |                     +------+-----#
 108 #                               # F  | Sig.|   t  |  df |Sig. (2-tailed)|Mean Difference|Std. Error Difference| Lower|Upper#
 109 #===============================#====#=====#======#=====#===============#===============#=====================#======#=====#
 110 #DEP1Equal variances assumed    #.000|1.000|-4.472|    8|           .002|         -2.000|                 .447|-3.031|-.969#
 111 #    Equal variances not assumed#    |     |-4.472|8.000|           .002|         -2.000|                 .447|-3.031|-.969#
 112 #DEP2Equal variances assumed    #.000|1.000| 4.472|    8|           .002|          2.000|                 .447|  .969|3.031#
 113 #    Equal variances not assumed#    |     | 4.472|8.000|           .002|          2.000|                 .447|  .969|3.031#
 114 #===============================#====#=====#======#=====#===============#===============#=====================#======#=====#
 115 EOF
 116 if [ $? -ne 0 ] ; then fail ; fi
 117
 118
 119 pass