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`
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 NOTABLE / X * variable001 * variable002 * variable003 * .
75 SAVE /OUTFILE='$TEMPDIR/foo.sav'
79 GET /FILE='$TEMPDIR/foo.sav'.
84 if [ $? -ne 0 ] ; then no_result ; fi
86 activity="run program"
87 $SUPERVISOR $PSPP --testing-mode $TESTFILE
88 if [ $? -ne 0 ] ; then no_result ; fi
90 activity="check file exists"
91 ls -l $TEMPDIR/foo.sav > /dev/null
92 if [ $? -ne 0 ] ; then no_result ; fi
94 # Ensure that the written file has no long name table
95 activity="check sysfile type"
96 grep 'X=X' $TEMPDIR/foo.sav
97 if [ $? -eq 0 ] ; then fail ; fi
99 activity="compare output"
100 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
101 diff -b -w $TEMPDIR/pspp.list - << EOF
102 x variable variab_a variab_b
103 -------- -------- -------- --------
113 if [ $? -ne 0 ] ; then fail ; fi