Fixed a lot of internationalisation issues.
[pspp-builds.git] / tests / stats / descript-missing.sh
1 #!/bin/sh
2
3 # This program tests that the descriptives command actually works
4
5 TEMPDIR=/tmp/pspp-tst-$$
6
7 # ensure that top_builddir  are absolute
8 if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
9 if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
10 top_builddir=`cd $top_builddir; pwd`
11 PSPP=$top_builddir/src/ui/terminal/pspp
12
13 # ensure that top_srcdir is absolute
14 top_srcdir=`cd $top_srcdir; pwd`
15
16 STAT_CONFIG_PATH=$top_srcdir/config
17 export STAT_CONFIG_PATH
18
19
20 cleanup()
21 {
22      cd /
23      rm -rf $TEMPDIR
24 }
25
26
27 fail()
28 {
29     echo $activity
30     echo FAILED
31     cleanup;
32     exit 1;
33 }
34
35
36 no_result()
37 {
38     echo $activity
39     echo NO RESULT;
40     cleanup;
41     exit 2;
42 }
43
44 pass()
45 {
46     cleanup;
47     exit 0;
48 }
49
50 mkdir -p $TEMPDIR
51
52 cd $TEMPDIR
53
54 activity="create program"
55 cat > $TEMPDIR/descript.stat <<EOF
56 title 'Test DESCRIPTIVES procedure'.
57
58 data list / V1 TO V3 1-3.
59 mis val v1 to v3 (1).
60 begin data.
61 111
62    
63  1 
64 1 1
65 112
66 123
67 234
68 end data.
69
70 descript all/stat=all/format=serial.
71 descript all/stat=all/format=serial/missing=include.
72 descript all/stat=all/format=serial/missing=listwise.
73 descript all/stat=all/format=serial/missing=listwise include.
74
75 EOF
76 if [ $? -ne 0 ] ; then no_result ; fi
77
78
79 activity="run program"
80 $SUPERVISOR $PSPP -o raw-ascii $TEMPDIR/descript.stat
81 if [ $? -ne 0 ] ; then no_result ; fi
82
83 activity="compare output"
84 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
85 diff -b $TEMPDIR/pspp.list - <<EOF
86 1.1 DATA LIST.  Reading 1 record from INLINE.
87 +--------+------+-------+------+
88 |Variable|Record|Columns|Format|
89 #========#======#=======#======#
90 |V1      |     1|  1-  1|F1.0  |
91 |V2      |     1|  2-  2|F1.0  |
92 |V3      |     1|  3-  3|F1.0  |
93 +--------+------+-------+------+
94 2.1 DESCRIPTIVES.  Valid cases = 7; cases with missing value(s) = 6.
95 +--------#-------+---------+-----+--------+-------+--------+--------+--------+--------+--------+-----+-------+-------+-----+
96 |Variable#Valid N|Missing N| Mean|S E Mean|Std Dev|Variance|Kurtosis|S E Kurt|Skewness|S E Skew|Range|Minimum|Maximum| Sum |
97 #========#=======#=========#=====#========#=======#========#========#========#========#========#=====#=======#=======#=====#
98 |V1      #      1|        6|2.000|    .   |   .   |    .   |    .   |    .   |    .   |    .   | .000|  2.000|  2.000|2.000|
99 |V2      #      2|        5|2.500|    .500|   .707|    .500|    .   |    .   |    .   |    .   |1.000|  2.000|  3.000|5.000|
100 |V3      #      3|        4|3.000|    .577|  1.000|   1.000|    .   |    .   |    .000|   1.225|2.000|  2.000|  4.000|9.000|
101 +--------#-------+---------+-----+--------+-------+--------+--------+--------+--------+--------+-----+-------+-------+-----+
102 3.1 DESCRIPTIVES.  Valid cases = 7; cases with missing value(s) = 3.
103 +--------#-------+---------+-----+--------+-------+--------+--------+--------+--------+--------+-----+-------+-------+------+
104 |Variable#Valid N|Missing N| Mean|S E Mean|Std Dev|Variance|Kurtosis|S E Kurt|Skewness|S E Skew|Range|Minimum|Maximum|  Sum |
105 #========#=======#=========#=====#========#=======#========#========#========#========#========#=====#=======#=======#======#
106 |V1      #      5|        2|1.200|    .200|   .447|    .200|   5.000|   2.000|   2.236|    .913|1.000|  1.000|  2.000| 6.000|
107 |V2      #      5|        2|1.600|    .400|   .894|    .800|    .312|   2.000|   1.258|    .913|2.000|  1.000|  3.000| 8.000|
108 |V3      #      5|        2|2.200|    .583|  1.304|   1.700|  -1.488|   2.000|    .541|    .913|3.000|  1.000|  4.000|11.000|
109 +--------#-------+---------+-----+--------+-------+--------+--------+--------+--------+--------+-----+-------+-------+------+
110 4.1 DESCRIPTIVES.  Valid cases = 1; cases with missing value(s) = 6.
111 +--------#-------+---------+-----+--------+-------+--------+--------+--------+--------+--------+-----+-------+-------+-----+
112 |Variable#Valid N|Missing N| Mean|S E Mean|Std Dev|Variance|Kurtosis|S E Kurt|Skewness|S E Skew|Range|Minimum|Maximum| Sum |
113 #========#=======#=========#=====#========#=======#========#========#========#========#========#=====#=======#=======#=====#
114 |V1      #      1|        0|2.000|    .   |   .   |    .   |    .   |    .   |    .   |    .   | .000|  2.000|  2.000|2.000|
115 |V2      #      1|        0|3.000|    .   |   .   |    .   |    .   |    .   |    .   |    .   | .000|  3.000|  3.000|3.000|
116 |V3      #      1|        0|4.000|    .   |   .   |    .   |    .   |    .   |    .   |    .   | .000|  4.000|  4.000|4.000|
117 +--------#-------+---------+-----+--------+-------+--------+--------+--------+--------+--------+-----+-------+-------+-----+
118 5.1 DESCRIPTIVES.  Valid cases = 4; cases with missing value(s) = 3.
119 +--------#-------+---------+-----+--------+-------+--------+--------+--------+--------+--------+-----+-------+-------+------+
120 |Variable#Valid N|Missing N| Mean|S E Mean|Std Dev|Variance|Kurtosis|S E Kurt|Skewness|S E Skew|Range|Minimum|Maximum|  Sum |
121 #========#=======#=========#=====#========#=======#========#========#========#========#========#=====#=======#=======#======#
122 |V1      #      4|        0|1.250|    .250|   .500|    .250|   4.000|   2.619|   2.000|   1.014|1.000|  1.000|  2.000| 5.000|
123 |V2      #      4|        0|1.750|    .479|   .957|    .917|  -1.289|   2.619|    .855|   1.014|2.000|  1.000|  3.000| 7.000|
124 |V3      #      4|        0|2.500|    .645|  1.291|   1.667|  -1.200|   2.619|    .000|   1.014|3.000|  1.000|  4.000|10.000|
125 +--------#-------+---------+-----+--------+-------+--------+--------+--------+--------+--------+-----+-------+-------+------+
126 EOF
127 if [ $? -ne 0 ] ; then fail ; fi
128
129
130 pass