diff --git a/collects/tests/net/dns.rkt b/collects/tests/net/dns.rkt
new file mode 100644
index 0000000000..124d8adade
--- /dev/null
+++ b/collects/tests/net/dns.rkt
@@ -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)))
+