pintos-os.org Git - pspp/blob - tests/stats/percentiles-compatible.sh

   1 #! /bin/sh
   2
   3 # Tests calculation of percentiles with the
   4 # COMPATIBLE algorithm set.
   5
   6 TEMPDIR=/tmp/pspp-tst-$$
   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 LANG=C
  21 export LANG
  22
  23
  24 cleanup()
  25 {
  26      if [ x"$PSPP_TEST_NO_CLEANUP" != x ] ; then
  27         echo "NOT cleaning $TEMPDIR"
  28         return ;
  29      fi
  30      cd /
  31      rm -rf $TEMPDIR
  32 }
  33
  34
  35 fail()
  36 {
  37     echo $activity
  38     echo FAILED
  39     cleanup;
  40     exit 1;
  41 }
  42
  43
  44 no_result()
  45 {
  46     echo $activity
  47     echo NO RESULT;
  48     cleanup;
  49     exit 2;
  50 }
  51
  52 pass()
  53 {
  54     cleanup;
  55     exit 0;
  56 }
  57
  58 mkdir -p $TEMPDIR
  59
  60 cd $TEMPDIR
  61
  62
  63 i=1;
  64
  65 activity="create program $i"
  66 cat > $TEMPDIR/prog.sps <<EOF
  67 DATA LIST LIST notable /X * .
  68 BEGIN DATA.
  69 1
  70 2
  71 3
  72 4
  73 5
  74 END DATA.
  75
  76 FREQUENCIES
  77         VAR=x
  78         /ALGORITHM=COMPATIBLE
  79         /PERCENTILES = 0 25 50 75 100
  80
  81 EOF
  82 if [ $? -ne 0 ] ; then no_result; fi
  83
  84 activity="run program $i"
  85 $SUPERVISOR $PSPP --testing-mode $TEMPDIR/prog.sps
  86 if [ $? -ne 0 ] ; then no_result ; fi
  87
  88 activity="compare output $i"
  89 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
  90 diff  -b $TEMPDIR/pspp.list - <<EOF
  91 1.1 FREQUENCIES.  X
  92 +-----------+--------+---------+--------+--------+--------+
  93 |           |        |         |        |  Valid |   Cum  |
  94 |Value Label|  Value |Frequency| Percent| Percent| Percent|
  95 #===========#========#=========#========#========#========#
  96 |           |    1.00|        1|    20.0|    20.0|    20.0|
  97 |           |    2.00|        1|    20.0|    20.0|    40.0|
  98 |           |    3.00|        1|    20.0|    20.0|    60.0|
  99 |           |    4.00|        1|    20.0|    20.0|    80.0|
 100 |           |    5.00|        1|    20.0|    20.0|   100.0|
 101 #===========#========#=========#========#========#========#
 102 |               Total|        5|   100.0|   100.0|        |
 103 +--------------------+---------+--------+--------+--------+
 104 +-----------------------+-----+
 105 |N           Valid      |    5|
 106 |            Missing    |    0|
 107 |Mean                   |3.000|
 108 |Std Dev                |1.581|
 109 |Minimum                |1.000|
 110 |Maximum                |5.000|
 111 |Percentiles 0          |1.000|
 112 |            25         |1.500|
 113 |            50 (Median)|3.000|
 114 |            75         |4.500|
 115 |            100        |5.000|
 116 +-----------------------+-----+
 117 EOF
 118 if [ $? -ne 0 ] ; then fail ; fi
 119
 120 pass;