# This program tests the PRINT transformation
TEMPDIR=/tmp/pspp-tst-$$
+TESTFILE=$TEMPDIR/`basename $0`.sps
here=`pwd`;
# Copy this file --- it's shared with another test
activity="create data"
-cp $here/data-list.data $TEMPDIR
+cp $top_srcdir/tests/data-list.data $TEMPDIR
if [ $? -ne 0 ] ; then no_result ; fi
activity="create program"
-cat > $TEMPFILE/print.stat <<EOF_print
+cat > $TEMPDIR/print.stat << foobar
title 'Test PRINT transformation'.
-remark EOF
-----------------------------------------------------------------------
-There is no test for DATA LIST FIXED since it is imagined that the
-rest of the tests give it a pretty good workout.
-----------------------------------------------------------------------
-EOF
-remark EOF
-----------------------------------------------------------------------
-Testing use of DATA LIST FREE.
-----------------------------------------------------------------------
-EOF
data list free table file='$TEMPDIR/data-list.data'/A B C D.
print outfile="foo" table/A(f8.2) '/' B(e8.2) '/' C(n10) '/' D(rbhex16) '/'.
print space a.
print outfile="foo" /a b c d.
list.
-remark EOF
-----------------------------------------------------------------------
-Testing use of DATA LIST LIST.
-----------------------------------------------------------------------
-EOF
data list list table file='$TEMPDIR/data-list.data'/A B C D.
print table/A B C D.
list.
-EOF_print
+foobar
if [ $? -ne 0 ] ; then no_result ; fi
activity="run program"
-$here/../src/pspp -o raw-ascii $TEMPFILE/print.stat > $TEMPDIR/errs
+$SUPERVISOR $here/../src/pspp --testing-mode -o raw-ascii --testing-mode $TEMPDIR/print.stat > $TEMPDIR/errs
# Note vv --- there are errors in input. Therefore, the command must FAIL
if [ $? -eq 0 ] ; then fail ; fi
activity="compare error messages"
diff -w $TEMPDIR/errs - <<EOF
-$TEMPDIR/data-list.data:1: error: (columns 1-5, field type F8.0)
- Field does not form a valid floating-point constant.
-$TEMPDIR/data-list.data:1: warning: LIST: The expression on PRINT
- SPACE evaluated to -2147483648. It's not possible to PRINT SPACE a
- negative number of lines.
-$TEMPDIR/data-list.data:2: error: (columns 1-8, field type F8.0)
- Field does not form a valid floating-point constant.
-$TEMPDIR/data-list.data:4: warning: LIST: The expression on PRINT
- SPACE evaluated to -2147483648. It's not possible to PRINT SPACE a
- negative number of lines.
-$TEMPDIR/data-list.data:4: error: (columns 3-12, field type F8.0)
- Field does not form a valid floating-point constant.
-$TEMPDIR/data-list.data:6: warning: LIST: The expression on PRINT
- SPACE evaluated to -2147483648. It's not possible to PRINT SPACE a
- negative number of lines.
-$TEMPDIR/data-list.data:1: error: (columns 1-5, field type F8.0)
- Field does not form a valid floating-point constant.
-$TEMPDIR/data-list.data:2: error: (columns 1-8, field type F8.0)
- Field does not form a valid floating-point constant.
-$TEMPDIR/data-list.data:2: warning: LIST: Missing value(s) for all
- variables from C onward. These will be filled with the system-missing
- value or blanks, as appropriate.
-$TEMPDIR/data-list.data:3: warning: LIST: Missing value(s) for all
- variables from B onward. These will be filled with the system-missing
- value or blanks, as appropriate.
-$TEMPDIR/data-list.data:4: error: (columns 3-12, field type F8.0)
- Field does not form a valid floating-point constant.
-$TEMPDIR/data-list.data:4: warning: LIST: Missing value(s) for all
- variables from C onward. These will be filled with the system-missing
- value or blanks, as appropriate.
-$TEMPDIR/data-list.data:5: warning: LIST: Missing value(s) for all
- variables from C onward. These will be filled with the system-missing
- value or blanks, as appropriate.
-$TEMPDIR/data-list.data:6: warning: LIST: Missing value(s) for all
- variables from B onward. These will be filled with the system-missing
- value or blanks, as appropriate.
+$TEMPDIR/data-list.data:1: error: (columns 1-5, field type F8.0) Field does not form a valid floating-point constant.
+$TEMPDIR/data-list.data:1: warning: LIST: The expression on PRINT SPACE evaluated to the system-missing value.
+$TEMPDIR/data-list.data:2: error: (columns 1-8, field type F8.0) Field does not form a valid floating-point constant.
+$TEMPDIR/data-list.data:4: warning: LIST: The expression on PRINT SPACE evaluated to the system-missing value.
+$TEMPDIR/data-list.data:4: error: (columns 3-12, field type F8.0) Field does not form a valid floating-point constant.
+$TEMPDIR/data-list.data:6: warning: LIST: The expression on PRINT SPACE evaluated to the system-missing value.
+$TEMPDIR/data-list.data:1: error: (columns 1-5, field type F8.0) Field does not form a valid floating-point constant.
+$TEMPDIR/data-list.data:2: error: (columns 1-8, field type F8.0) Field does not form a valid floating-point constant.
+$TEMPDIR/data-list.data:2: warning: LIST: Missing value(s) for all variables from C onward. These will be filled with the system-missing value or blanks, as appropriate.
+$TEMPDIR/data-list.data:3: warning: LIST: Missing value(s) for all variables from B onward. These will be filled with the system-missing value or blanks, as appropriate.
+$TEMPDIR/data-list.data:4: error: (columns 3-12, field type F8.0) Field does not form a valid floating-point constant.
+$TEMPDIR/data-list.data:4: warning: LIST: Missing value(s) for all variables from C onward. These will be filled with the system-missing value or blanks, as appropriate.
+$TEMPDIR/data-list.data:5: warning: LIST: Missing value(s) for all variables from C onward. These will be filled with the system-missing value or blanks, as appropriate.
+$TEMPDIR/data-list.data:6: warning: LIST: Missing value(s) for all variables from B onward. These will be filled with the system-missing value or blanks, as appropriate.
EOF
if [ $? -ne 0 ] ; then fail ; fi
-cp $TEMPDIR/pspp.list /tmp/out
+
activity="compare output"
diff -b -B $TEMPDIR/pspp.list - << EOF
-----------------------------------------------------------------------
-There is no test for DATA LIST FIXED since it is imagined that the
-rest of the tests give it a pretty good workout.
-----------------------------------------------------------------------
-
-----------------------------------------------------------------------
-Testing use of DATA LIST FREE.
-----------------------------------------------------------------------
-
-1.1 DATA LIST. Reading free-form data from file
+1.1 DATA LIST. Reading free-form data from file $TEMPDIR/data-list.data.
+--------+------+
|Variable|Format|
#========#======#
|D |F8.0 |
+--------+------+
-2.1 PRINT. Writing 1 records to file "foo".
+2.1 PRINT. Writing 1 record(s) to file foo.
+--------+------+-------+-------+
|Variable|Record|Columns| Format|
#========#======#=======#=======#
. 10.00 11.00 12.00
-----------------------------------------------------------------------
-Testing use of DATA LIST LIST.
-----------------------------------------------------------------------
-
-3.1 DATA LIST. Reading free-form data from file
+3.1 DATA LIST. Reading free-form data from file $TEMPDIR/data-list.data.
+--------+------+
|Variable|Format|
#========#======#
|D |F8.0 |
+--------+------+
-4.1 PRINT. Writing 1 records to the listing file.
+4.1 PRINT. Writing 1 record(s) to the listing file.
+--------+------+-------+------+
|Variable|Record|Columns|Format|
#========#======#=======#======#
10.00 11.00 . .
12.00 . . .
12.00 . . .
+
EOF
if [ $? -ne 0 ] ; then fail ; fi