3 # This program tests for a bug which caused
4 # the second procedure after GET FILE to corrupt it's output
7 TEMPDIR=/tmp/pspp-tst-$$
11 # ensure that top_srcdir is absolute
12 cd $top_srcdir; top_srcdir=`pwd`
14 export STAT_CONFIG_PATH=$top_srcdir/config
50 activity="create program"
51 cat > $TEMPDIR/prog.sps <<EOF
52 DATA LIST LIST NOTABLE /location * editor * shell * freq * .
64 SAVE /OUTFILE='$TEMPDIR/foo.sav'.
66 GET /FILE='$TEMPDIR/foo.sav'.
71 * But this one get rubbish
75 if [ $? -ne 0 ] ; then no_result ; fi
77 activity="run program"
78 $SUPERVISOR $here/../src/pspp -o raw-ascii $TEMPDIR/prog.sps
79 if [ $? -ne 0 ] ; then no_result ; fi
82 activity="compare output"
83 diff -b -B -w $TEMPDIR/pspp.list - << EOF
84 LOCATION EDITOR SHELL FREQ
85 -------- -------- -------- --------
96 LOCATION EDITOR SHELL FREQ
97 -------- -------- -------- --------
108 if [ $? -ne 0 ] ; then fail ; fi