Support starting and stopping IPv6 only servers

Look for $testdir/$server/named.ipv6-only and use
fd92:7065:b8e:ffff::$n instead of 10.53.0.$n to
communicate with the server.

diff --git a/bin/tests/system/start.pl b/bin/tests/system/start.pl
index 04ff11f61434ca6174aa06271610b7c0a389636a..2a2d7809f7d059e972d74af958a1916aeb01def1 100755 (executable)
--- a/bin/tests/system/start.pl
+++ b/bin/tests/system/start.pl
@@ -426,8 +426,13 @@ sub verify_ns_server {
                $tcp = "";
        }
 
+       my $ip = "10.53.0.$n";
+       if (-e "$testdir/$server/named.ipv6-only") {
+               $ip = "fd92:7065:b8e:ffff::$n";
+       }
+
        while (1) {
-               my $return = system("$DIG $tcp +noadd +nosea +nostat +noquest +nocomm +nocmd +noedns -p $port version.bind. chaos txt \@10.53.0.$n > /dev/null");
+               my $return = system("$DIG $tcp +noadd +nosea +nostat +noquest +nocomm +nocmd +noedns -p $port version.bind. chaos txt \@$ip > /dev/null");
 
                last if ($return == 0);
 

diff --git a/bin/tests/system/stop.pl b/bin/tests/system/stop.pl
index bd5c04b419596584407ac7e81659074b9c6fbe04..9c6a39a84eee8ade27102b3b2908b1443ed218f6 100644 (file)
--- a/bin/tests/system/stop.pl
+++ b/bin/tests/system/stop.pl
@@ -182,6 +182,10 @@ sub stop_rndc {
        }
 
        my $ip = "10.53.0.$n";
+       if (-e "$testdir/$server/named.ipv6-only") {
+               $ip = "fd92:7065:b8e:ffff::$n";
+       }
+
        my $how = $halt ? "halt" : "stop";
 
        # Ugly, but should work.