diff --git a/pkgs/net-test/tests/net/dns.rkt b/pkgs/net-test/tests/net/dns.rkt index d3e4df0e92..085c696111 100644 --- a/pkgs/net-test/tests/net/dns.rkt +++ b/pkgs/net-test/tests/net/dns.rkt @@ -85,9 +85,13 @@ (define *google-dns* "8.8.8.8") (define *google-dns-2* "8.8.4.4") (define *nwu-url* "eecs.northwestern.edu") -(define *nwu-ips* '("129.105.8.227" "129.105.5.15" "129.105.8.237")) +(define *nwu-ips* '("129.105.8.227" "129.105.5.15" "129.105.8.237")) (define *racket-host* "winooski.ccs.neu.edu") (define *racket-ip* "129.10.115.117") +(define *indiana-host* "hurin.soic.indiana.edu") ; a.k.a. drdr.racket-lang.org +(define *indiana-ip* "129.79.247.31") +(define *utah-host* "rains.cs.utah.edu") +(define *utah-ip* "155.98.68.106") (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") @@ -97,7 +101,8 @@ (check 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*) + (check-equal? (dns-get-name nameserver *utah-ip*) *utah-host*) + (check-equal? (dns-get-name nameserver *indiana-ip*) *indiana-host*) (check member (dns-get-mail-exchanger nameserver *nwu-url*) *nwu-mx*) (check-equal? (dns-get-srv nameserver "racket-lang.org" "xmpp-client") (list *xmpp-client*)) (check-equal? (dns-get-srv nameserver "nonexistent-srv-record.racket-lang.org" "xmpp-client")