Handle both possible results from the NWU name server.

This commit is contained in:
Sam Tobin-Hochstadt 2015-11-06 17:22:33 -05:00
parent 7f01f8e8a5
commit 63c901f26d

View File

@ -84,7 +84,7 @@
(define *google-dns* "8.8.8.8")
(define *google-dns-2* "8.8.4.4")
(define *nwu-url* "eecs.northwestern.edu")
(define *nwu-ip* "129.105.8.227")
(define *nwu-ips* '("129.105.8.227" "129.105.5.15"))
(define *racket-host* "winooski.ccs.neu.edu")
(define *racket-ip* "129.10.115.117")
(define *nwu-mx* '("cuda.eecs.northwestern.edu" "barra.eecs.northwestern.edu"))
@ -92,7 +92,7 @@
(define *kame-ip* "2001:200:dff:fff1:216:3eff:feb1:44d7")
(define (nameserver-tests nameserver)
(check-equal? (dns-get-address nameserver *nwu-url*) *nwu-ip*)
(check-not-false (member (dns-get-address nameserver *nwu-url*) *nwu-ips*))
(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*)