|
@@ -0,0 +1,66 @@
|
|
|
+#!/bin/sh
|
|
|
+#
|
|
|
+# Copyright (C) 2004, 2007 Internet Systems Consortium, Inc. ("ISC")
|
|
|
+# Copyright (C) 2000, 2001, 2003 Internet Software Consortium.
|
|
|
+#
|
|
|
+# Permission to use, copy, modify, and/or distribute this software for any
|
|
|
+# purpose with or without fee is hereby granted, provided that the above
|
|
|
+# copyright notice and this permission notice appear in all copies.
|
|
|
+#
|
|
|
+# THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
|
|
|
+# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
|
|
|
+# AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
|
|
|
+# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
|
|
|
+# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
|
|
|
+# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
|
|
|
+# PERFORMANCE OF THIS SOFTWARE.
|
|
|
+
|
|
|
+SYSTEMTESTTOP=..
|
|
|
+. $SYSTEMTESTTOP/conf.sh
|
|
|
+
|
|
|
+#
|
|
|
+# Do glue tests.
|
|
|
+#
|
|
|
+
|
|
|
+status=0
|
|
|
+n=0
|
|
|
+
|
|
|
+# This query should result in a delegation with two NS; one in the delegated
|
|
|
+# zone and one in a so called out-of-bailiwick zone for which the auth server
|
|
|
+# has authority, too. For the former, the server should return glue in the
|
|
|
+# parent zone. For the latter, BIND 9 and BIND 10 behave differently; BIND 9
|
|
|
+# uses "glue" in the parent zone (since this is the root zone everything can
|
|
|
+# be considered a valid glue). BIND 10 (using sqlite3 data source) searches
|
|
|
+# the other zone and uses the authoritative data in that zone (which is
|
|
|
+# intentionally different from the glue in the root zone).
|
|
|
+echo "I:testing that a TLD referral gets a full glue set from the root zone ($n)"
|
|
|
+$DIG +norec @10.53.0.1 -p 5300 foo.bar.example. A >dig.out.$n || status=1
|
|
|
+$PERL ../digcomp.pl example.good dig.out.$n || status=1
|
|
|
+n=`expr $n + 1`
|
|
|
+
|
|
|
+echo "I:testing that we find glue A RRs we are authoritative for ($n)"
|
|
|
+$DIG +norec @10.53.0.1 -p 5300 foo.bar.example.org. a >dig.out.$n || status=1
|
|
|
+$PERL ../digcomp.pl auth.good dig.out.$n || status=1
|
|
|
+n=`expr $n + 1`
|
|
|
+
|
|
|
+# We cannot do this test for BIND 10 because b10-auth doesn't act as a
|
|
|
+# recursive (caching) server (by design)
|
|
|
+# echo "I:testing that we find glue A/AAAA RRs in the cache ($n)"
|
|
|
+# $DIG +norec @10.53.0.1 -p 5300 foo.bar.yy. a >dig.out.$n || status=1
|
|
|
+# $PERL ../digcomp.pl yy.good dig.out.$n || status=1
|
|
|
+# n=`expr $n + 1`
|
|
|
+
|
|
|
+echo "I:testing that we don't find out-of-zone glue ($n)"
|
|
|
+$DIG +norec @10.53.0.1 -p 5300 example.net. a > dig.out.$n || status=1
|
|
|
+$PERL ../digcomp.pl noglue.good dig.out.$n || status=1
|
|
|
+n=`expr $n + 1`
|
|
|
+
|
|
|
+# This test currently fails (additional section will be empty, which is
|
|
|
+# incorrect). See Trac ticket #646.
|
|
|
+#echo "I:testing that we are finding partial out-of-zone glue ($n)"
|
|
|
+#$DIG +norec @10.53.0.1 -p 5300 foo.bar.test. a >dig.out.$n || status=1
|
|
|
+#$PERL ../digcomp.pl test.good dig.out.$n || status=1
|
|
|
+#n=`expr $n + 1`
|
|
|
+
|
|
|
+echo "I:exit status: $status"
|
|
|
+exit $status
|