3 # This program tests for a bug which caused UNIFORM(x) to always return zero.
6 TEMPDIR=/tmp/pspp-tst-$$
7 TESTFILE=$TEMPDIR/`basename $0`.sps
11 # ensure that top_srcdir is absolute
12 cd $top_srcdir; top_srcdir=`pwd`
14 STAT_CONFIG_PATH=$top_srcdir/config
15 export STAT_CONFIG_PATH
52 activity="create program"
57 + do repeat response=R1.
58 + compute response = uniform(10).
67 if [ $? -ne 0 ] ; then no_result ; fi
69 activity="run program"
70 $SUPERVISOR $here/../src/pspp -o raw-ascii $TESTFILE
71 if [ $? -ne 0 ] ; then no_result ; fi
74 activity="compare output"
75 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
76 diff -b -w $TEMPDIR/pspp.list - << EOF
100 if [ $? -ne 0 ] ; then fail ; fi