3 # This program tests the DO REPEAT command.
5 TEMPDIR=/tmp/pspp-tst-$$
6 TESTFILE=$TEMPDIR/`basename $0`.sps
8 # ensure that top_builddir are absolute
9 if [ -z "$top_builddir" ] ; then top_builddir=. ; fi
10 if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi
11 top_builddir=`cd $top_builddir; pwd`
13 # ensure that top_srcdir is absolute
14 top_srcdir=`cd $top_srcdir; pwd`
16 STAT_CONFIG_PATH=$top_srcdir/config
17 export STAT_CONFIG_PATH
55 activity="create program"
56 cat > $TESTFILE << EOF
57 DATA LIST NOTABLE /a 1.
62 DO REPEAT h = h0 TO h3 / x = 0 1 2 3 / y = 8 TO 5.
71 COMPUTE #idx = #idx + 1.
79 if [ $? -ne 0 ] ; then no_result ; fi
81 activity="run program"
82 $SUPERVISOR $top_builddir/src/pspp --testing-mode -o raw-ascii $TESTFILE >/dev/null 2>&1
83 if [ $? -ne 0 ] ; then no_result ; fi
85 activity="compare results"
86 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
87 diff -b $TEMPDIR/pspp.list - <<EOF
88 a h0 h1 h2 h3 v1 v2 v3 v4 v5 v6
89 - -------- -------- -------- -------- -------- -------- -------- -------- -------- --------
90 0 8.00 8.00 8.00 8.00 4.00 5.00 6.00 5.00 6.00 7.00
92 if [ $? -ne 0 ] ; then fail ; fi