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 STAT_CONFIG_PATH=$top_srcdir/config
14 export STAT_CONFIG_PATH
50 activity="create program 1"
51 cat > $TEMPDIR/tabs.stat <<EOF
52 data list /X 1-80 (a).
55 if [ $? -ne 0 ] ; then no_result ; fi
57 activity="create program 2"
58 printf "\t1\t12\t123\t1234\t12345\n" >> $TEMPDIR/tabs.stat
59 if [ $? -ne 0 ] ; then no_result ; fi
62 activity="create program 3"
63 cat >> $TEMPDIR/tabs.stat <<EOF
68 if [ $? -ne 0 ] ; then no_result ; fi
71 activity="run program"
72 $SUPERVISOR $here/../src/pspp -o raw-ascii $TEMPDIR/tabs.stat
73 if [ $? -ne 0 ] ; then no_result ; fi
76 diff -B -b $TEMPDIR/pspp.list - << EOF
77 1.1 DATA LIST. Reading 1 record from the command file.
78 +--------+------+-------+------+
79 |Variable|Record|Columns|Format|
80 #========#======#=======#======#
82 +--------+------+-------+------+
85 if [ $? -ne 0 ] ; then fail ; fi