X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Fcommand%2Frank.sh;h=626778828f613b7d72521a83322e774df432fd9b;hb=ca5eedaaf2b10a13b931f8a62dea5c1efb5916c5;hp=d64e97586afce6d90092f813640434356f57fb2b;hpb=b09b3485e28fba1b07980fd5a5eb6466486b5c07;p=pspp diff --git a/tests/command/rank.sh b/tests/command/rank.sh index d64e97586a..626778828f 100755 --- a/tests/command/rank.sh +++ b/tests/command/rank.sh @@ -11,7 +11,7 @@ if [ -z "$top_builddir" ] ; then top_builddir=. ; fi top_srcdir=`cd $top_srcdir; pwd` top_builddir=`cd $top_builddir; pwd` -PSPP=$top_builddir/src/ui/terminal/pspp +PSPP=$top_builddir/src/ui/terminal/pspp$EXEEXT STAT_CONFIG_PATH=$top_srcdir/config export STAT_CONFIG_PATH @@ -26,6 +26,7 @@ cleanup() echo "NOT cleaning $TEMPDIR" return ; fi + cd / rm -rf $TEMPDIR } @@ -81,7 +82,7 @@ if [ $? -ne 0 ] ; then no_result ; fi # Check that it properly handles failed transformations. activity="run program 1" -$SUPERVISOR $PSPP --testing-mode -o raw-ascii -e $TEMPDIR/err $TESTFILE +$SUPERVISOR $PSPP --testing-mode -o pspp.csv -e $TEMPDIR/err $TESTFILE if [ $? -ne 1 ] ; then fail ; fi activity="diff 1" @@ -130,14 +131,14 @@ if [ $? -ne 0 ] ; then no_result ; fi activity="run program (syntax errors)" -$SUPERVISOR $PSPP --testing-mode -o raw-ascii -e $TEMPDIR/errs $TESTFILE +$SUPERVISOR $PSPP -o pspp.csv -e $TEMPDIR/errs $TESTFILE if [ $? -ne 1 ] ; then fail ; fi activity="compare errors" perl -pi -e 's/^\s*$//g' $TEMPDIR/errs -diff -b $TEMPDIR/errs - << EOF -$TEMPDIR/rank.sh.sps:15: error: RANK: Syntax error expecting \`(' at end of command. -$TEMPDIR/rank.sh.sps:19: error: RANK: Syntax error expecting integer at \`d'. +diff -b $TEMPDIR/errs - << EOF +$TEMPDIR/rank.sh.sps:15: error: RANK: Syntax error at end of command: expecting \`('. +$TEMPDIR/rank.sh.sps:19: error: RANK: Syntax error at \`d': expecting integer. $TEMPDIR/rank.sh.sps:25: error: RANK: Variable x already exists. $TEMPDIR/rank.sh.sps:30: error: RANK: Too many variables in INTO clause. EOF @@ -245,6 +246,11 @@ LIST. NEW FILE. DATA LIST LIST NOTABLE /a * g1 g2 *. BEGIN DATA. +2 1 2 +2 1 2 +3 1 2 +4 1 2 +5 1 2 1 0 2 2 0 2 3 0 2 @@ -253,11 +259,6 @@ BEGIN DATA. 6 0 2 7 0 2 8 0 2 -2 1 2 -2 1 2 -3 1 2 -4 1 2 -5 1 2 6 1 2 7 1 2 7 1 2 @@ -274,6 +275,19 @@ RANK a (D) BY g2 g1 /NORMAL . +SPLIT FILE BY g1. + +RANK a (D) BY g2 + /PRINT=YES + /TIES=LOW + /MISSING=INCLUDE + /FRACTION=RANKIT + /RANK + /NORMAL + . + +SPLIT FILE OFF. + LIST. @@ -345,160 +359,247 @@ if [ $? -ne 0 ] ; then no_result ; fi activity="run program 3" -$SUPERVISOR $PSPP --testing-mode -o raw-ascii $TESTFILE +$SUPERVISOR $PSPP -o pspp.csv $TESTFILE if [ $? -ne 0 ] ; then no_result ; fi activity="compare output 3" -perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list -diff -b $TEMPDIR/pspp.list - <