3 # This program tests for a bug which caused MATCH FILES to crash
4 # when used with scratch variables.
7 TEMPDIR=/tmp/pspp-tst-$$
8 TESTFILE=$TEMPDIR/`basename $0`.pspp
10 # ensure that top_builddir are absolute
11 if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
12 if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
13 top_builddir=`cd $top_builddir; pwd`
14 PSPP=$top_builddir/src/ui/terminal/pspp
16 # ensure that top_srcdir is absolute
17 top_srcdir=`cd $top_srcdir; pwd`
19 STAT_CONFIG_PATH=$top_srcdir/config
20 export STAT_CONFIG_PATH
25 if [ x"$PSPP_TEST_NO_CLEANUP" != x ] ; then
26 echo "NOT cleaning $TEMPDIR"
61 activity="create program"
63 DATA LIST LIST /w * x * y * .
74 MATCH FILES FILE=* /DROP=w.
79 if [ $? -ne 0 ] ; then no_result ; fi
81 $SUPERVISOR $PSPP --testing-mode $TESTFILE
82 if [ $? -ne 0 ] ; then no_result ; fi
85 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
86 diff -b -w $TEMPDIR/pspp.list - << EOF
87 1.1 DATA LIST. Reading free-form data from INLINE.
96 -------- -------- --------
100 if [ $? -ne 0 ] ; then fail ; fi