X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Fcommand%2Fbeg-data.sh;h=972b990be03b8e3ff8d20ba06529959dec70b2dd;hb=16740853761dfa37e1dc673edb8157930e22b08d;hp=6d835015e7e3d6ade18ccbe7cf0b45caa957cc70;hpb=af4066391f20365e210460a736b1b02efe194da6;p=pspp-builds.git diff --git a/tests/command/beg-data.sh b/tests/command/beg-data.sh index 6d835015..972b990b 100755 --- a/tests/command/beg-data.sh +++ b/tests/command/beg-data.sh @@ -9,7 +9,7 @@ TESTFILE=$TEMPDIR/`basename $0`.sps 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 +PSPP=$top_builddir/src/ui/terminal/pspp$EXEEXT # ensure that top_srcdir is absolute top_srcdir=`cd $top_srcdir; pwd` @@ -86,40 +86,38 @@ if [ $? -ne 0 ] ; then no_result ; fi activity="run program" -$SUPERVISOR $PSPP --testing-mode $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 -1.1 DATA LIST. Reading 1 record from INLINE. -+--------+------+-------+------+ -|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 INLINE. -+--------+------+-------+------+ -|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