3 # This program tests MISSING VALUES
5 TEMPDIR=/tmp/pspp-tst-$$
6 TESTFILE=$TEMPDIR/`basename $0`.sps
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
14 # ensure that top_srcdir is absolute
15 top_srcdir=`cd $top_srcdir; pwd`
17 STAT_CONFIG_PATH=$top_srcdir/config
18 export STAT_CONFIG_PATH
25 if [ x"$PSPP_TEST_NO_CLEANUP" != x ] ; then
26 echo "NOT cleaning $TEMPDIR"
61 # Copy this file --- it's shared with another test
62 activity="create data"
63 cp $top_srcdir/tests/data-list.data $TEMPDIR
64 if [ $? -ne 0 ] ; then no_result ; fi
67 activity="create program"
68 cat > $TEMPDIR/missing-values.stat << foobar
69 DATA LIST NOTABLE/str1 1-5 (A) str2 6-8 (A) date1 9-19 (DATE) num1 20-25.
71 /* Valid: numeric missing values.
72 MISSING VALUES date1 num1 (1).
73 MISSING VALUES date1 num1 (1, 2).
74 MISSING VALUES date1 num1 (1, 2, 3).
76 /* Valid: numeric missing values using the first variable's format.
77 MISSING VALUES num1 date1 ('1').
78 MISSING VALUES num1 date1 ('1', '2').
79 MISSING VALUES num1 date1 ('1', '2', '3').
80 MISSING VALUES date1 num1 ('06-AUG-05').
81 MISSING VALUES date1 num1 ('06-AUG-05', '01-OCT-78').
82 MISSING VALUES date1 num1 ('06-AUG-05', '01-OCT-78', '14-FEB-81').
84 /* Valid: ranges of numeric missing values.
85 MISSING VALUES num1 (1 THRU 2).
86 MISSING VALUES num1 (LO THRU 2).
87 MISSING VALUES num1 (LOWEST THRU 2).
88 MISSING VALUES num1 (1 THRU HI).
89 MISSING VALUES num1 (1 THRU HIGHEST).
91 /* Valid: a range of numeric missing values, plus an individual value.
92 MISSING VALUES num1 (1 THRU 2, 3).
93 MISSING VALUES num1 (LO THRU 2, 3).
94 MISSING VALUES num1 (LOWEST THRU 2, 3).
95 MISSING VALUES num1 (1 THRU HI, -1).
96 MISSING VALUES num1 (1 THRU HIGHEST, -1).
98 /* Valid: string missing values.
99 MISSING VALUES str1 str2 ('abc ','def').
101 /* Invalid: too long for str2.
102 MISSING VALUES str1 str2 ('abcde').
104 /* Invalid: no string ranges.
105 MISSING VALUES str1 ('a' THRU 'z').
107 /* Invalid: mixing string and numeric variables.
108 MISSING VALUES str1 num1 ('123').
110 /* Valid: may mix variable types when clearing missing values.
111 MISSING VALUES ALL ().
114 if [ $? -ne 0 ] ; then no_result ; fi
117 activity="run program"
118 $SUPERVISOR $PSPP --testing-mode --error-file=$TEMPDIR/errs $TEMPDIR/missing-values.stat
119 # Note vv --- there are errors in input. Therefore, the command must FAIL
120 if [ $? -eq 0 ] ; then fail ; fi
122 activity="compare error messages"
123 diff -w $TEMPDIR/errs - <<EOF
124 $TEMPDIR/missing-values.stat:34: error: MISSING VALUES: Missing values provided are too long to assign to variable of width 3.
125 $TEMPDIR/missing-values.stat:37: error: MISSING VALUES: Syntax error expecting string at \`THRU'.
126 $TEMPDIR/missing-values.stat:37: error: MISSING VALUES: THRU is not a variable name.
127 $TEMPDIR/missing-values.stat:40: error: MISSING VALUES: Cannot mix numeric variables (e.g. num1) and string variables (e.g. str1) within a single list.
129 if [ $? -ne 0 ] ; then fail ; fi