+for count_repeat_buffers in \
+ "100 5 2" "100 5 3" "100 5 4" "100 5 5" "100 5 10" "100 5 50" "100 5 100" "100 5" \
+ "100 10 2" "100 10 3" "100 10 5" "100 10" \
+ "1000 5 5" "1000 5 50" "1000 5" \
+ "100 100 3" "100 100 5" "100 100" \
+ "10000 5 500" \
+ "50000 1"; do
+ set $count_repeat_buffers
+ count=$1
+ repeat=$2
+ buffers=$3
+
+ printf .
+
+ activity="generate data for $count_repeat_buffers run"
+ $PERL gen-data.pl $count $repeat > sort.data
+ if [ $? -ne 0 ] ; then no_result ; fi
+
+ activity="generate test program for $count_repeat_buffers run"
+ {
+ echo "data list list file='sort.in'/x y (f8)."
+ if test "$buffers" != ""; then
+ echo "sort by x/buffers=$buffers."
+ else
+ echo "sort by x."
+ fi
+ echo "print outfile='sort.out'/x y."
+ echo "execute."
+ } > sort.pspp || no_result
+
+ activity="run program"
+ $SUPERVISOR $PSPP --testing-mode sort.pspp
+ if [ $? -ne 0 ] ; then no_result ; fi
+
+ perl -pi -e 's/^\s*$//g' sort.exp sort.out
+ diff -w sort.exp sort.out
+ if [ $? -ne 0 ] ; then fail ; fi
+done
+echo