3 # This program tests the flip command
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 activity="create flip.stat"
52 cat > $TEMPDIR/flip.stat <<EOF
53 data list /N 1 (a) A B C D 2-9.
67 if [ $? -ne 0 ] ; then no_result ; fi
70 activity="run program"
71 $SUPERVISOR $here/../src/pspp -o raw-ascii $TEMPDIR/flip.stat
72 if [ $? -ne 0 ] ; then no_result ; fi
74 activity="compare output"
75 perl -pi -e s/^\s*\$//g $TEMPDIR/pspp.list
76 diff -b $TEMPDIR/pspp.list - << EOF | perl -e 's/^\s*$//g'
77 1.1 DATA LIST. Reading 1 record from the command file.
78 +--------+------+-------+------+
79 |Variable|Record|Columns|Format|
80 #========#======#=======#======#
86 +--------+------+-------+------+
97 -------- -------- -------- -------- -------- --------
98 A 1.00 6.00 11.00 16.00 21.00
99 B 2.00 7.00 12.00 17.00 22.00
100 C 3.00 8.00 13.00 18.00 23.00
101 D 4.00 9.00 14.00 19.00 24.00
104 -------- -------- -------- -------- --------
105 V 1.00 2.00 3.00 4.00
106 W 6.00 7.00 8.00 9.00
107 X 11.00 12.00 13.00 14.00
108 Y 16.00 17.00 18.00 19.00
109 Z 21.00 22.00 23.00 24.00
111 if [ $? -ne 0 ] ; then fail ; fi