New function prepare_cutpoints
[pspp-builds.git] / 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 --testing-mode $TESTFILE
77 if [ $? -ne 0 ] ; then no_result ; fi
78
79 activity="compare results"
80 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
81 diff  -b $TEMPDIR/pspp.list - <<EOF
82 1.1 DATA LIST.  Reading 1 record from "$top_srcdir/tests/weighting.data".
83 +--------+------+-------+------+
84 |Variable|Record|Columns|Format|
85 #========#======#=======#======#
86 |AVAR    |     1|  1-  5|F5.0  |
87 |BVAR    |     1|  6- 10|F5.0  |
88 +--------+------+-------+------+
89 2.1 DESCRIPTIVES.  Valid cases = 730; cases with missing value(s) = 0.
90 +--------#-------+---------+------+--------+-------+--------+--------+--------+--------+--------+------+-------+-------+--------+
91 |Variable#Valid N|Missing N| Mean |S E Mean|Std Dev|Variance|Kurtosis|S E Kurt|Skewness|S E Skew| Range|Minimum|Maximum|   Sum  |
92 #========#=======#=========#======#========#=======#========#========#========#========#========#======#=======#=======#========#
93 |AVAR    #    730|        0|31.515|    .405| 10.937| 119.608|   2.411|    .181|   1.345|    .090|76.000| 18.000| 94.000|23006.00|
94 +--------#-------+---------+------+--------+-------+--------+--------+--------+--------+--------+------+-------+-------+--------+
95 3.1 FREQUENCIES.  AVAR
96 +--------+--------+---+---+
97 |        |        |   |Cum|
98 |  Value |  Freq  |Pct|Pct|
99 #========#========#===#===#
100 |      18|       1|.13|.13|
101 |      19|       7|.95|1.0|
102 |      20|      26|3.5|4.6|
103 |      21|      76|10.|15.|
104 |      22|      57|7.8|22.|
105 |      23|      58|7.9|30.|
106 |      24|      38|5.2|36.|
107 |      25|      38|5.2|41.|
108 |      26|      30|4.1|45.|
109 |      27|      21|2.8|48.|
110 |      28|      23|3.1|51.|
111 |      29|      24|3.2|54.|
112 |      30|      23|3.1|57.|
113 |      31|      14|1.9|59.|
114 |      32|      21|2.8|62.|
115 |      33|      21|2.8|65.|
116 |      34|      14|1.9|67.|
117 |      35|      14|1.9|69.|
118 |      36|      17|2.3|71.|
119 |      37|      11|1.5|73.|
120 |      38|      16|2.1|75.|
121 |      39|      14|1.9|77.|
122 |      40|      15|2.0|79.|
123 |      41|      14|1.9|81.|
124 |      42|      14|1.9|83.|
125 |      43|       8|1.0|84.|
126 |      44|      15|2.0|86.|
127 |      45|      10|1.3|87.|
128 |      46|      12|1.6|89.|
129 |      47|      13|1.7|91.|
130 |      48|      13|1.7|92.|
131 |      49|       5|.68|93.|
132 |      50|       5|.68|94.|
133 |      51|       3|.41|94.|
134 |      52|       7|.95|95.|
135 |      53|       6|.82|96.|
136 |      54|       2|.27|96.|
137 |      55|       2|.27|96.|
138 |      56|       2|.27|97.|
139 |      57|       3|.41|97.|
140 |      58|       1|.13|97.|
141 |      59|       3|.41|98.|
142 |      61|       1|.13|98.|
143 |      62|       3|.41|98.|
144 |      63|       1|.13|98.|
145 |      64|       1|.13|99.|
146 |      65|       2|.27|99.|
147 |      70|       1|.13|99.|
148 |      78|       1|.13|99.|
149 |      79|       1|.13|99.|
150 |      80|       1|.13|99.|
151 |      94|       1|.13|100|
152 +--------+--------+---+---+
153 +-----------------------+--------+
154 |N           Valid      |     730|
155 |            Missing    |       0|
156 |Mean                   |  31.515|
157 |S.E. Mean              |    .405|
158 |Mode                   |  21.000|
159 |Std Dev                |  10.937|
160 |Variance               | 119.608|
161 |Kurtosis               |   2.411|
162 |S.E. Kurt              |    .181|
163 |Skewness               |   1.345|
164 |S.E. Skew              |    .090|
165 |Range                  |  76.000|
166 |Minimum                |  18.000|
167 |Maximum                |  94.000|
168 |Sum                    |23006.00|
169 |Percentiles 50 (Median)|      29|
170 +-----------------------+--------+
171 EOF
172 if [ $? -ne 0 ] ; then fail ; fi
173
174
175 pass;