From 71bf542eeea1a72a53037bda2dd40265938b9465 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 18 Feb 2012 12:30:04 -0500 Subject: [PATCH] Add a pathological case to experiment with --- test-rrs.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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")