adns: Add a test case and a Debian autopkgtest

This includes testing IPv6 address lookups.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/adns/runtest.tcl b/adns/runtest.tcl
new file mode 100644 (file)
index 0000000..f7b1ca1
--- /dev/null
+++ b/adns/runtest.tcl
@@ -0,0 +1,34 @@
+
+proc query {args} {
+    set q [concat adns synch $args]
+    puts "% $q"
+    set r [eval $q]
+    puts "=> $r"
+    return $r
+}
+proc query_ok {args} {
+    set r [eval query $args]
+    set outcome [lindex $r 0]
+    if {"$outcome" != "ok"} { error "outcome $outcome, not ok" }
+    return [lindex $r 6]
+}
+
+# We could perhaps do this with a mocked nameserver but that seems
+# like an excessive effort.
+#
+# Use mythic-beasts as a test case.
+# They are very likely to have both A and AAAA RRsets for the foreseeable.
+
+query_ok a www.mythic-beasts.com
+query_ok aaaa www.mythic-beasts.com
+
+set data [query_ok addr www.mythic-beasts.com]
+
+set got_type(INET) 0
+set got_type(INET6) 0
+foreach addr $data {
+    incr got_type([lindex $addr 0])
+}
+foreach type [array names got_type] {
+    if {$got_type($type) == 0} { error $r "no $type" }
+}

diff --git a/debian/regenerate-autopkgtests b/debian/regenerate-autopkgtests
index 8e63f574bb5b782502579814542523891f2034cf..14e673849b2f8b6eca8010b24c3e0cd73f4e4551 100755 (executable)
--- a/debian/regenerate-autopkgtests
+++ b/debian/regenerate-autopkgtests
@@ -26,6 +26,9 @@ for sv in */debian-substvars; do
                echo >&4 "Tests: $t"
                sed "s/^shlibs:Depends=/Depends: tcl$v, /" >&4 $sv
                restrictions=''
+               case $d in
+               adns)   restrictions+=' needs-internet';
+               esac
                case $v in
                '')     ;;
                ?*)     restrictions+=' skip-not-installable';

diff --git a/debian/tests/control b/debian/tests/control
index 849b1ee9bcf42e18043e80af236aae4cd254766d..b82317fab191c1cf001494efa3df3560df73b95f 100644 (file)
--- a/debian/tests/control
+++ b/debian/tests/control
@@ -1,18 +1,18 @@
 Tests: adns--def
 Depends: tcl, libadns1t64 (>= 1.5.0~), libc6 (>= 2.2.5), libtcl-chiark-1 (>= 1.3.5+b1)
-Restrictions:
+Restrictions: needs-internet
 
 Tests: adns--8.5
 Depends: tcl8.5, libadns1t64 (>= 1.5.0~), libc6 (>= 2.2.5), libtcl-chiark-1 (>= 1.3.5+b1)
-Restrictions: skip-not-installable
+Restrictions: needs-internet skip-not-installable
 
 Tests: adns--8.6
 Depends: tcl8.6, libadns1t64 (>= 1.5.0~), libc6 (>= 2.2.5), libtcl-chiark-1 (>= 1.3.5+b1)
-Restrictions: skip-not-installable
+Restrictions: needs-internet skip-not-installable
 
 Tests: adns--8.7
 Depends: tcl8.7, libadns1t64 (>= 1.5.0~), libc6 (>= 2.2.5), libtcl-chiark-1 (>= 1.3.5+b1)
-Restrictions: skip-not-installable
+Restrictions: needs-internet skip-not-installable
 
 Tests: cdb--def
 Depends: tcl, libc6 (>= 2.33), libcdb1 (>= 0.76), libtcl-chiark-1 (>= 1.3.5+b1)