3 # This program tests for a bug which caused UNIFORM(x) to always return zero.
6 TEMPDIR=/tmp/pspp-tst-$$
10 # ensure that top_srcdir is absolute
11 cd $top_srcdir; top_srcdir=`pwd`
13 export STAT_CONFIG_PATH=$top_srcdir/config
49 activity="create program"
50 cat > $TEMPDIR/rnd.sps <<EOF
54 + do repeat response=r1.
55 + compute response = uniform(10).
64 if [ $? -ne 0 ] ; then no_result ; fi
66 $SUPERVISOR $here/../src/pspp -o raw-ascii $TEMPDIR/rnd.sps
67 if [ $? -ne 0 ] ; then no_result ; fi
70 diff -b -B -w $TEMPDIR/pspp.list - << EOF
94 if [ $? -ne 0 ] ; then fail ; fi