X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=bin%2Flib;h=9c49f9e9fac26982925a13ab61c9df97b490f978;hb=62f031249f096887b62544f8e4513fd225ac86fd;hp=c9a7f27a6e36be9494b8718cef9c1b6a711fcdb8;hpb=5fca32af49d84dcadf96317d54708c20a41ba151;p=moe.git diff --git a/bin/lib b/bin/lib index c9a7f27..9c49f9e 100644 --- a/bin/lib +++ b/bin/lib @@ -268,7 +268,15 @@ function test-prolog esac if [ -n "$EV_PEDANT" -a $IN_TYPE != none ] ; then pcont " " - bin/pedant <$TDIR/$TEST.in | tr '\n' ' ' >&2 + if [ "$EV_PEDANT" = 1 ] ; then + EV_PEDANT=" " + fi + bin/pedant <$TDIR/$TEST.in >$TDIR/$TEST.pedant $EV_PEDANT + if [ -s $TDIR/$TEST.pedant ] ; then + pend + sed 's/^/\t/' <$TDIR/$TEST.pedant >&2 + pstart -e '\t' + fi fi case $OUT_TYPE in file) echo "Output file: $PROBLEM.out" @@ -301,6 +309,20 @@ function test-epilog cp $BOXDIR/.stdout $TDIR/$TEST.out ;; esac + + if [ -n "$OUTPUT_FILTER" -a "$OUT_TYPE" != none -a -z "$EV_NOFILTER" ] ; then + pcont " " + FILTER=`eval echo \"$OUTPUT_FILTER\"` + echo "Output filter command: $FILTER" + mv $TDIR/$TEST.out $TDIR/$TEST.raw + if ! eval $FILTER 2>$TMPDIR/exec.out ; then + cat $TMPDIR/exec.out + MSG=`tail -1 $TMPDIR/exec.out` + if [ -z "$MSG" ] ; then MSG="Filter failed" ; fi + test-result 0 "$MSG" + fi + cat $TMPDIR/exec.out + fi } # Running of test program with file input/output @@ -354,7 +376,7 @@ function syntax-check [ -n "$SYNTAX_CHECK" ] || return 0 [ -z "$EV_NOCHECK" ] || return 0 pcont " " - SCHECK=`eval echo $SYNTAX_CHECK` + SCHECK=`eval echo \"$SYNTAX_CHECK\"` echo "Syntax check command: $SCHECK" if ! eval $SCHECK 2>$TMPDIR/exec.out ; then cat $TMPDIR/exec.out @@ -373,7 +395,7 @@ function output-check if [ -n "$OUTPUT_CHECK" -a "$OUT_TYPE" != none -a -z "$EV_NOCHECK" ] ; then pcont " " [ -f $PDIR/$TEST.out ] && ln $PDIR/$TEST.out $TDIR/$TEST.ok - OCHECK=`eval echo $OUTPUT_CHECK` + OCHECK=`eval echo \"$OUTPUT_CHECK\"` echo "Output check command: $OCHECK" if ! eval $OCHECK 2>$TMPDIR/exec.out ; then cat $TMPDIR/exec.out