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`
15 # ensure that top_srcdir is absolute
16 top_srcdir=`cd $top_srcdir; pwd`
18 STAT_CONFIG_PATH=$top_srcdir/config
19 export STAT_CONFIG_PATH
56 activity="create program"
58 DATA LIST LIST /w * x * y * .
69 MATCH FILES FILE=* /DROP=w.
74 if [ $? -ne 0 ] ; then no_result ; fi
76 $SUPERVISOR $top_builddir/src/pspp -o raw-ascii $TESTFILE
77 if [ $? -ne 0 ] ; then no_result ; fi
80 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
81 diff -b -w $TEMPDIR/pspp.list - << EOF
82 1.1 DATA LIST. Reading free-form data from INLINE.
91 -------- -------- --------
95 if [ $? -ne 0 ] ; then fail ; fi