pintos-os.org Git - pspp/blob - tests/command/weight.sh

   1 #!/bin/sh
   2
   3 # This program tests the WEIGHT command
   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 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 activity="create program"
  63 cat > $TESTFILE << EOF
  64 SET FORMAT F8.3.
  65 data list file='$top_srcdir/tests/weighting.data'/AVAR 1-5 BVAR 6-10.
  66 weight by BVAR.
  67
  68 descriptives AVAR /statistics all /format serial.
  69 frequencies AVAR /statistics all /format condense.
  70
  71 EOF
  72 if [ $? -ne 0 ] ; then no_result ; fi
  73
  74
  75 activity="run program"
  76 $SUPERVISOR $PSPP -o pspp.csv $TESTFILE
  77 if [ $? -ne 0 ] ; then no_result ; fi
  78
  79 activity="compare results"
  80 diff -c $TEMPDIR/pspp.csv - <<EOF
  81 "Table: Reading 1 record from ""$top_srcdir/tests/weighting.data""."
  82 Variable,Record,Columns,Format
  83 AVAR,1,1-  5,F5.0
  84 BVAR,1,6- 10,F5.0
  85
  86 Table: Valid cases = 730; cases with missing value(s) = 0.
  87 Variable,Valid N,Missing N,Mean,S.E. Mean,Std Dev,Variance,Kurtosis,S.E. Kurt,Skewness,S.E. Skew,Range,Minimum,Maximum,Sum
  88 AVAR,730,0,31.515,.405,10.937,119.608,2.411,.181,1.345,.090,76.000,18.000,94.000,23006.00
  89
  90 Table: AVAR
  91 ,,,Cum
  92 Value,Freq,Pct,Pct
  93 18,1,.137,.137
  94 19,7,.959,1.096
  95 20,26,3.562,4.658
  96 21,76,10.411,15.068
  97 22,57,7.808,22.877
  98 23,58,7.945,30.822
  99 24,38,5.205,36.027
 100 25,38,5.205,41.233
 101 26,30,4.110,45.342
 102 27,21,2.877,48.219
 103 28,23,3.151,51.370
 104 29,24,3.288,54.658
 105 30,23,3.151,57.808
 106 31,14,1.918,59.726
 107 32,21,2.877,62.603
 108 33,21,2.877,65.479
 109 34,14,1.918,67.397
 110 35,14,1.918,69.315
 111 36,17,2.329,71.644
 112 37,11,1.507,73.151
 113 38,16,2.192,75.342
 114 39,14,1.918,77.260
 115 40,15,2.055,79.315
 116 41,14,1.918,81.233
 117 42,14,1.918,83.151
 118 43,8,1.096,84.247
 119 44,15,2.055,86.301
 120 45,10,1.370,87.671
 121 46,12,1.644,89.315
 122 47,13,1.781,91.096
 123 48,13,1.781,92.877
 124 49,5,.685,93.562
 125 50,5,.685,94.247
 126 51,3,.411,94.658
 127 52,7,.959,95.616
 128 53,6,.822,96.438
 129 54,2,.274,96.712
 130 55,2,.274,96.986
 131 56,2,.274,97.260
 132 57,3,.411,97.671
 133 58,1,.137,97.808
 134 59,3,.411,98.219
 135 61,1,.137,98.356
 136 62,3,.411,98.767
 137 63,1,.137,98.904
 138 64,1,.137,99.041
 139 65,2,.274,99.315
 140 70,1,.137,99.452
 141 78,1,.137,99.589
 142 79,1,.137,99.726
 143 80,1,.137,99.863
 144 94,1,.137,100.000
 145
 146 N,Valid,730
 147 ,Missing,0
 148 Mean,,31.515
 149 S.E. Mean,,.405
 150 Mode,,21.000
 151 Std Dev,,10.937
 152 Variance,,119.608
 153 Kurtosis,,2.411
 154 S.E. Kurt,,.181
 155 Skewness,,1.345
 156 S.E. Skew,,.090
 157 Range,,76.000
 158 Minimum,,18.000
 159 Maximum,,94.000
 160 Sum,,23006.00
 161 Percentiles,50 (Median),29
 162 EOF
 163 if [ $? -ne 0 ] ; then fail ; fi
 164
 165
 166 pass;