FOUND on davenant

[adns.git] / regress / m1test

diff --git a/regress/m1test b/regress/m1test
index c556f8c669061ea78365664e1c5c543464779ba4..6ecbdb358b32c3b82eaa1f3ddcdcc16556e873e6 100755 (executable)
--- a/regress/m1test
+++ b/regress/m1test
@@ -2,12 +2,11 @@
 # usage: m1test <name> <initfile> [<initflags>] <queryargs>'
 # test recording script
 #
-#  This file is
-#    Copyright (C) 1998-2000 Ian Jackson <ian@davenant.greenend.org.uk>
-#
-#  It is part of adns, which is
-#    Copyright (C) 1997-2000 Ian Jackson <ian@davenant.greenend.org.uk>
-#    Copyright (C) 1999 Tony Finch <dot@dotat.at>
+#  This file is part of adns, which is
+#    Copyright (C) 1997-2000,2003,2006  Ian Jackson
+#    Copyright (C) 1999-2000,2003,2006  Tony Finch
+#    Copyright (C) 1991 Massachusetts Institute of Technology
+#  (See the file INSTALL for full details.)
 #  
 #  This program is free software; you can redistribute it and/or modify
 #  it under the terms of the GNU General Public License as published by
@@ -28,8 +27,9 @@ set -e
 if [ $# -lt 3 ]
 then
        echo >&2 \
-'usage: m1test <name> <initfile> [-<initflags>]
-              [=<hrecord-command-args>] <queryargs>'
+'usage: m1test <name> <initfile> [-<initflags>] ["<"]
+              [=<hrecord-command-args>] <queryargs>
+("<" means read input from case-<name>.in)'
        exit 1
 fi
 
@@ -42,6 +42,11 @@ case "$1" in
 -*)    initflags="$1"; shift
 esac
 
+if test "x$1" = "x<"
+then
+       shift; exec <"$case.in"
+fi
+
 case "$1" in
 =*)    hrecord="`echo \"$1\" | sed -e 's/^=//'`"; shift
 esac