Add test for TCP responses which end up in several packets.

[adns.git] / regress / m1test

diff --git a/regress/m1test b/regress/m1test
index 5a8bbed5e27c67480ad589a7f49d7ffc9f05ff83..82e94caba6cc2d0929084ad118c90395962f1a13 100755 (executable)
--- a/regress/m1test
+++ b/regress/m1test
@@ -4,32 +4,32 @@ set -e
 
 if [ $# -lt 3 ]
 then
 
 if [ $# -lt 3 ]
 then

-       echo >&2 'usage: m1test <name> <initfile> <queryargs>'
+       echo >&2 'usage: m1test <name> <initfile> [<initflags>] <queryargs>'

        exit 1
 fi
 
 case="case-$1"; shift
 initfile="$1"; shift
        exit 1
 fi
 
 case="case-$1"; shift
 initfile="$1"; shift

+
+case "$1" in
+-*)    initflags="$1"; shift
+esac
+

 queryargs="$*"
 
 initstring="`cat init-$initfile.text`"
 
 queryargs="$*"
 
 initstring="`cat init-$initfile.text`"
 

-echo "$initfile" >"$case.sys"
+echo $initfile $initflags >"$case.sys"

 echo "$queryargs" >>"$case.sys"
 
 echo "$queryargs" >>"$case.sys"
 

-echo running "hrecord /... $queryargs"
+echo running hrecord $initflags "/... $queryargs"

 set +e
 ADNS_TEST_OUT_FD=3 3>>"$case.sys" >"$case.out" 2>"$case.err" </dev/null \
 set +e
 ADNS_TEST_OUT_FD=3 3>>"$case.sys" >"$case.out" 2>"$case.err" </dev/null \

- ./hrecord "/$initstring" $queryargs
+ ./hrecord $initflags "/$initstring" $queryargs

 rc=$?
 set -e
 
 rc=$?
 set -e
 

+echo "rc=$rc" >>$case.out
+

 egrep . -- "$case.err" "$case.out"
 echo "exit status: $rc"
 egrep . -- "$case.err" "$case.out"
 echo "exit status: $rc"

-
-if test $rc = 0
-then
-       echo "test created ok"
-fi
-
-exit $rc