+ Bugfixes:

[adns.git] / regress / r1test

diff --git a/regress/r1test b/regress/r1test
index de8db693792b16d66d7f659d0ec9b55d3e4c629f..4315bf8a77699f65b51400b6bf63f2e6101d2745 100755 (executable)
--- a/regress/r1test
+++ b/regress/r1test
@@ -42,13 +42,20 @@ do
        then
                :
        else
-               failed=true
+               failwhy="$failwhy WRONG OUTPUT"
        fi
 done
 
-if $failed
+cat >"$ocase.leftover"
+if egrep . /dev/null "$ocase.leftover"
 then
-       echo >&2 "FAILED $case - WRONG OUTPUT - lines of syscall remaining `wc -l`"
+       failwhy="$failwhy EXITED EARLY"
+fi
+
+if [ "x$failwhy" != x ]
+then
+       scremain="`wc -l <\"$ocase.leftover\"`"
+       echo >&2 "FAILED $case -$failwhy - lines of syscall remaining $scremain"
        mrc=2
        exit
 fi