3 # This program tests that system files can be read and written
4 # without the long name tables.
7 TEMPDIR=/tmp/pspp-tst-$$
8 TESTFILE=$TEMPDIR/`basename $0`.sps
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 NOTABLE / X * variable001 * variable002 * variable003 * .
70 SAVE /OUTFILE='$TEMPDIR/foo.sav'
74 GET /FILE='$TEMPDIR/foo.sav'.
79 if [ $? -ne 0 ] ; then no_result ; fi
81 activity="run program"
82 $SUPERVISOR $top_builddir/src/pspp -o raw-ascii $TESTFILE
83 if [ $? -ne 0 ] ; then no_result ; fi
85 activity="check file exists"
86 ls -l $TEMPDIR/foo.sav > /dev/null
87 if [ $? -ne 0 ] ; then no_result ; fi
89 # Ensure that the written file has no long name table
90 activity="check sysfile type"
91 grep 'X=X' $TEMPDIR/foo.sav
92 if [ $? -eq 0 ] ; then fail ; fi
94 activity="compare output"
95 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
96 diff -b -w $TEMPDIR/pspp.list - << EOF
97 X VARIABLE VARIAB_A VARIAB_B
98 -------- -------- -------- --------
108 if [ $? -ne 0 ] ; then fail ; fi