3 # This program tests the DATA LIST input program.
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
51 # Create command file.
52 activity="create program"
53 cat > $TESTFILE << EOF
54 data list list ('|','X') /A B C D.
63 data list free/A B C D.
80 data list free (tab)/A B C D.
101 if [ $? -ne 0 ] ; then no_result ; fi
104 activity="run program"
105 $SUPERVISOR $here/../src/pspp --testing-mode -o raw-ascii --testing-mode $TESTFILE
106 if [ $? -ne 0 ] ; then fail ; fi
108 activity="compare output"
109 perl -pi -e s/^\s*\$//g $TEMPDIR/pspp.list
110 diff -b $TEMPDIR/pspp.list - << EOF | perl -e 's/^\s*$//g'
111 1.1 DATA LIST. Reading free-form data from the command file.
122 -------- -------- -------- --------
123 1.00 23.00 45.00 2.03
124 2.00 22.00 34.00 23.00
125 3.00 34.00 34.00 34.00
128 -------- -------- -------- --------
137 -------- -------- -------- --------
155 if [ $? -ne 0 ] ; then fail ; fi