35 lines
1.1 KiB
Racket
35 lines
1.1 KiB
Racket
#lang racket/base
|
|
|
|
(require net/dns tests/eli-tester)
|
|
|
|
;; Run internal unit tests
|
|
(require (submod net/dns test))
|
|
|
|
;; Constants for testing. These can go out of sync
|
|
;; when server setups change, so keep them up-to-date.
|
|
(define *google-dns* "8.8.8.8")
|
|
(define *google-dns-2* "8.8.4.4")
|
|
(define *racket-url* "racket-lang.org")
|
|
(define *racket-host* "champlain.ccs.neu.edu")
|
|
(define *racket-ip* "129.10.115.116")
|
|
(define *racket-mx* #"aspmx.l.google.com")
|
|
(define *kame-url* "www.kame.net")
|
|
(define *kame-ip* "2001:200:dff:fff1:216:3eff:feb1:44d7")
|
|
|
|
(module+ main (tests))
|
|
(define (dns-test/nameserver nameserver)
|
|
(test (dns-get-address nameserver *racket-url*) => *racket-ip*
|
|
(dns-get-address nameserver *racket-host*) => *racket-ip*
|
|
(dns-get-address nameserver *kame-url* #:ipv6? #t) => *kame-ip*
|
|
(dns-get-name nameserver *racket-ip*) => *racket-host*
|
|
(dns-get-mail-exchanger nameserver *racket-url*) => *racket-mx*))
|
|
|
|
(define (tests)
|
|
(dns-test/nameserver *google-dns*)
|
|
(dns-test/nameserver *google-dns-2*)
|
|
|
|
(define ns (dns-find-nameserver))
|
|
(when ns
|
|
(dns-test/nameserver ns)))
|
|
|