suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjust DNS test to use different hosts for reverse lookup

Browse Source 
The old one stopped working. Added two new ones, so we have a spare to
discard if one stops working.
This commit is contained in:
Matthew Flatt 2021-04-14 14:18:10 -06:00
parent 1b8250de14
commit 448b77a662
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/net-test/tests/net/dns.rkt
View File

@ -88,6 +88,10 @@
(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-host* "winooski.ccs.neu.edu")
(define *racket-ip* "129.10.115.117") (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 *nwu-mx* '("cuda.eecs.northwestern.edu" "barra.eecs.northwestern.edu"))
(define *kame-url* "www.kame.net") (define *kame-url* "www.kame.net")
(define *kame-ip* "2001:200:dff:fff1:216:3eff:feb1:44d7") (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 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 *racket-host*) *racket-ip*)
(check-equal? (dns-get-address nameserver *kame-url* #:ipv6? #t) *kame-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 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 "racket-lang.org" "xmpp-client") (list *xmpp-client*))
(check-equal? (dns-get-srv nameserver "nonexistent-srv-record.racket-lang.org" "xmpp-client") (check-equal? (dns-get-srv nameserver "nonexistent-srv-record.racket-lang.org" "xmpp-client")