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

Add DNS tests

Browse Source 
original commit: 94b2ebddfa
This commit is contained in:
Asumu Takikawa 2013-03-01 16:21:09 -05:00
parent b0e565e19b
commit e9b40d3e69
1 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
collects/tests/net/dns.rkt Normal file
View File

@ -0,0 +1,31 @@
#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")
(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-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)))