diff --git a/test-rrs.rkt b/test-rrs.rkt
index 40eb49b..46cf78a 100644
--- a/test-rrs.rkt
+++ b/test-rrs.rkt
@@ -2,7 +2,7 @@
 
 (require "api.rkt")
 
-(provide test-soa-rr test-rrs test-roots test-port-number)
+(provide (all-defined-out))
 
 (define test-soa-rr
   (rr (domain '(#"example")) 'soa 'in 30
@@ -37,6 +37,10 @@
 	(rr (domain '(#"f" #"root-servers" #"net")) 'a 'in 30 '#(192 58 128 30))
 	(rr (domain '(#"f" #"root-servers" #"net")) 'a 'in 30 '#(193 0 14 129))))
 
+(define pathological-roots
+  (list (rr (domain '(#"a")) 'ns 'in 30 (domain '(#"ns" #"b")))
+	(rr (domain '(#"b")) 'ns 'in 30 (domain '(#"ns" #"a")))))
+
 (define (test-port-number)
   (string->number
    (or (getenv "DNSPORT")