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-$$
8 TESTFILE=$TEMPDIR/`basename $0`.sps
12 # ensure that top_srcdir is absolute
13 cd $top_srcdir; top_srcdir=`pwd`
15 export STAT_CONFIG_PATH=$top_srcdir/config
51 activity="create program"
52 cat > $TEMPDIR/prog.sps <<EOF
53 DATA LIST LIST NOTABLE /location * editor * shell * freq * .
65 SAVE /OUTFILE='$TEMPDIR/foo.sav'.
67 GET /FILE='$TEMPDIR/foo.sav'.
72 * But this one get rubbish
76 if [ $? -ne 0 ] ; then no_result ; fi
78 activity="run program"
79 $SUPERVISOR $here/../src/pspp -o raw-ascii $TEMPDIR/prog.sps
80 if [ $? -ne 0 ] ; then no_result ; fi
83 activity="compare output"
84 diff -b -B -w $TEMPDIR/pspp.list - << EOF
85 LOCATION EDITOR SHELL FREQ
86 -------- -------- -------- --------
97 LOCATION EDITOR SHELL FREQ
98 -------- -------- -------- --------
109 if [ $? -ne 0 ] ; then fail ; fi