X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Fcommand%2Frank.sh;h=67e19c9fda6bcc5828418a46fa1fe9c58284521e;hb=8bfe6b7a62becebdd5a8b37badec3f0508a99aad;hp=d64e97586afce6d90092f813640434356f57fb2b;hpb=b09b3485e28fba1b07980fd5a5eb6466486b5c07;p=pspp-builds.git diff --git a/tests/command/rank.sh b/tests/command/rank.sh index d64e9758..67e19c9f 100755 --- a/tests/command/rank.sh +++ b/tests/command/rank.sh @@ -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,12 +131,12 @@ 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 +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'. $TEMPDIR/rank.sh.sps:25: error: RANK: Variable x already exists. @@ -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 - <