Handle both possible results from the NWU name server.
This commit is contained in:
parent
7f01f8e8a5
commit
63c901f26d
|
@ -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*)
|
||||
|
|
Loading…
Reference in New Issue
Block a user