mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

net-db.test tweak

Browse source 
* test-suite/tests/net-db.test: Throw 'unresolved if we have a crap DNS
  that is returning results for all addresses.
This commit is contained in:
Andy Wingo 2010-08-28 12:02:12 -07:00
parent f5e854388b
commit fb61f4b826
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/tests/net-db.test
View file

@ -68,8 +68,9 @@
(pass-if "no name" (pass-if "no name"
(catch 'getaddrinfo-error (catch 'getaddrinfo-error
(lambda () (lambda ()
(getaddrinfo "does-not-exist") (pk "getaddrinfo for \"does-not-exist\" succeeded!"
#f) (getaddrinfo "does-not-exist"))
(throw 'unresolved))
(lambda (key errcode) (lambda (key errcode)
;; In some cases (e.g., in a chroot without ;; In some cases (e.g., in a chroot without
;; /etc/{hosts,resolv.conf}), this can result in `EAI_EAGAIN'. ;; /etc/{hosts,resolv.conf}), this can result in `EAI_EAGAIN'.