X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Fcommand%2Fbeg-data.sh;h=45752fc7a71ac46efe3fe3d445101745b1281d9c;hb=f51ecb48027e6b1eb46840ae25888a25b429f012;hp=4c6ee92d3edf4c53e754d58ca4bbf0c79f1505f3;hpb=b08603f631a2d998d8c604692fdf13669bb5e510;p=pspp-builds.git diff --git a/tests/command/beg-data.sh b/tests/command/beg-data.sh index 4c6ee92d..45752fc7 100755 --- a/tests/command/beg-data.sh +++ b/tests/command/beg-data.sh @@ -5,17 +5,27 @@ TEMPDIR=/tmp/pspp-tst-$$ TESTFILE=$TEMPDIR/`basename $0`.sps -here=`pwd`; +# ensure that top_builddir are absolute +if [ -z "$top_builddir" ] ; then top_builddir=. ; fi +if [ -z "$top_srcdir" ] ; then top_srcdir=. ; fi +top_builddir=`cd $top_builddir; pwd` +PSPP=$top_builddir/src/ui/terminal/pspp # ensure that top_srcdir is absolute -cd $top_srcdir; top_srcdir=`pwd` +top_srcdir=`cd $top_srcdir; pwd` STAT_CONFIG_PATH=$top_srcdir/config export STAT_CONFIG_PATH +LANG=C +export LANG cleanup() { + if [ x"$PSPP_TEST_NO_CLEANUP" != x ] ; then + echo "NOT cleaning $TEMPDIR" + return ; + fi cd / rm -rf $TEMPDIR } @@ -76,43 +86,38 @@ if [ $? -ne 0 ] ; then no_result ; fi activity="run program" -$SUPERVISOR $here/../src/pspp -o raw-ascii $TESTFILE +$SUPERVISOR $PSPP -o pspp.csv $TESTFILE if [ $? -ne 0 ] ; then no_result ; fi activity="compare data" -perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list -diff -b $TEMPDIR/pspp.list - << foobar |perl -e 's/^\s*$//g' -1.1 DATA LIST. Reading 1 record from the command file. -+--------+------+-------+------+ -|Variable|Record|Columns|Format| -#========#======#=======#======# -|A | 1| 1- 1|F1.0 | -|B | 1| 2- 2|F1.0 | -+--------+------+-------+------+ - -A B -- - -1 2 -3 4 -5 6 -7 8 -9 0 - -2.1 DATA LIST. Reading 1 record from the command file. -+--------+------+-------+------+ -|Variable|Record|Columns|Format| -#========#======#=======#======# -|A | 1| 1- 1|F1.0 | -|B | 1| 2- 2|F1.0 | -+--------+------+-------+------+ - -A B -- - -0 9 -8 7 -6 5 -4 3 -2 1 +diff -c $TEMPDIR/pspp.csv - << foobar +Title: Test BEGIN DATA ... END DATA + +Table: Reading 1 record from INLINE. +Variable,Record,Columns,Format +A,1,1- 1,F1.0 +B,1,2- 2,F1.0 + +Table: Data List +A,B +1,2 +3,4 +5,6 +7,8 +9,0 + +Table: Reading 1 record from INLINE. +Variable,Record,Columns,Format +A,1,1- 1,F1.0 +B,1,2- 2,F1.0 + +Table: Data List +A,B +0,9 +8,7 +6,5 +4,3 +2,1 foobar if [ $? -ne 0 ] ; then fail ; fi