syndicate-lang
/
racket-dns-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add a pathological case to experiment with

This commit is contained in:
Tony Garnock-Jones 2012-02-18 12:30:04 -05:00
parent 43e43b548c
commit 71bf542eee
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test-rrs.rkt
View File

@ -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")