Regression test scripts set EF_DISABLE_BANNER (for Electric Fence).

[adns.git] / regress / r1test

diff --git a/regress/r1test b/regress/r1test
index 0c727a07e553757ec71052e8c022af2e62126285..de8db693792b16d66d7f659d0ec9b55d3e4c629f 100755 (executable)
--- a/regress/r1test
+++ b/regress/r1test
@@ -2,11 +2,56 @@
 # usage: r1test <testcasename>
 
 set -e
-tcn="$1"
-test -d ../testcases || cd testcases
+mrc=1
+trap 'exit $mrc' 0
 
-exec <$tcn.log
-read initfile
+casename="$1"
+case="case-$casename"
+ocase="output-$casename"
+
+exec <"$case.sys"
+read initfile initflags
 read queryargs
-initstring="`cat $initfile.init`"
-../hplayback "/$initstring" $queryargs
+
+initstring="`cat init-$initfile.text`"
+
+rm -f $ocase.*
+
+EF_DISABLE_BANNER=1
+export EF_DISABLE_BANNER
+
+set +e
+ADNS_TEST_REPORT_FD=3 3>>"$ocase.report" >"$ocase.out" 2>"$ocase.err" \
+ ./hplayback $initflags "/$initstring" $queryargs
+rc=$?
+set -e
+
+if [ "$rc" = 5 ]
+then
+       echo -n "SKIPPED-$casename "
+       mrc=5
+       exit
+fi
+
+echo "rc=$rc" >>$ocase.out
+
+failed=false
+for part in err out
+do
+       if diff -u -- "$case.$part" "$ocase.$part"
+       then
+               :
+       else
+               failed=true
+       fi
+done
+
+if $failed
+then
+       echo >&2 "FAILED $case - WRONG OUTPUT - lines of syscall remaining `wc -l`"
+       mrc=2
+       exit
+fi
+
+echo -n "$casename "
+mrc=0