update dns tests based on change at nwu

original commit: ad8b487712
This commit is contained in:
Robby Findler 2014-08-21 08:50:52 -05:00
parent 8f1553919f
commit fefa1c520a

View File

@ -87,7 +87,7 @@
(define *nwu-ip* "129.105.8.227")
(define *racket-host* "winooski.ccs.neu.edu")
(define *racket-ip* "129.10.115.117")
(define *nwu-mx* "cuda.eecs.northwestern.edu")
(define *nwu-mx* '("cuda.eecs.northwestern.edu" "barra.eecs.northwestern.edu"))
(define *kame-url* "www.kame.net")
(define *kame-ip* "2001:200:dff:fff1:216:3eff:feb1:44d7")
@ -96,7 +96,7 @@
(check-equal? (dns-get-address nameserver *racket-host*) *racket-ip*)
(check-equal? (dns-get-address nameserver *kame-url* #:ipv6? #t) *kame-ip*)
(check-equal? (dns-get-name nameserver *racket-ip*) *racket-host*)
(check-equal? (dns-get-mail-exchanger nameserver *nwu-url*) *nwu-mx*))
(check-not-false (member (dns-get-mail-exchanger nameserver *nwu-url*) *nwu-mx*)))
(provide tests)
(module+ main (tests))