3 # This program tests that tab characters can be used in string input
5 TEMPDIR=/tmp/pspp-tst-$$
9 # ensure that top_srcdir is absolute
10 cd $top_srcdir; top_srcdir=`pwd`
12 export STAT_CONFIG_PATH=$top_srcdir/config
48 activity="create program 1"
49 cat > $TEMPDIR/tabs.stat <<EOF
50 data list /x 1-80 (a).
53 if [ $? -ne 0 ] ; then no_result ; fi
55 activity="create program 2"
56 printf "\t1\t12\t123\t1234\t12345\t123456\t\t1234567\t12345678\tasdf\tjkl\n" >> $TEMPDIR/tabs.stat
57 if [ $? -ne 0 ] ; then no_result ; fi
60 activity="create program 3"
61 cat >> $TEMPDIR/tabs.stat <<EOF
66 if [ $? -ne 0 ] ; then no_result ; fi
69 activity="run program"
70 $SUPERVISOR $here/../src/pspp -o raw-ascii $TEMPDIR/tabs.stat
71 if [ $? -ne 0 ] ; then no_result ; fi
74 diff -B -b $TEMPDIR/pspp.list - << EOF
75 1.1 DATA LIST. Reading 1 record from the command file.
76 +--------+------+-------+------+
77 |Variable|Record|Columns|Format|
78 #========#======#=======#======#
80 +--------+------+-------+------+
81 1 12 123 1234 12345 123456 1234567 12345678
83 if [ $? -ne 0 ] ; then fail ; fi