3 # This program tests that tab characters can be used in string input
5 TEMPDIR=/tmp/pspp-tst-$$
6 TESTFILE=$TEMPDIR/`basename $0`.sps
10 # ensure that top_srcdir is absolute
11 cd $top_srcdir; top_srcdir=`pwd`
13 export STAT_CONFIG_PATH=$top_srcdir/config
49 activity="create program 1"
50 cat > $TEMPDIR/tabs.stat <<EOF
51 data list /x 1-80 (a).
54 if [ $? -ne 0 ] ; then no_result ; fi
56 activity="create program 2"
57 printf "\t1\t12\t123\t1234\t12345\n" >> $TEMPDIR/tabs.stat
58 if [ $? -ne 0 ] ; then no_result ; fi
61 activity="create program 3"
62 cat >> $TEMPDIR/tabs.stat <<EOF
67 if [ $? -ne 0 ] ; then no_result ; fi
70 activity="run program"
71 $SUPERVISOR $here/../src/pspp -o raw-ascii $TEMPDIR/tabs.stat
72 if [ $? -ne 0 ] ; then no_result ; fi
75 diff -B -b $TEMPDIR/pspp.list - << EOF
76 1.1 DATA LIST. Reading 1 record from the command file.
77 +--------+------+-------+------+
78 |Variable|Record|Columns|Format|
79 #========#======#=======#======#
81 +--------+------+-------+------+
84 if [ $? -ne 0 ] ; then fail ; fi