diff options
author | Andy Wingo <wingo@pobox.com> | 2010-08-28 12:02:12 -0700 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-08-28 12:02:12 -0700 |
commit | fb61f4b8269b269e86e12ac2f9ead1faeb350436 (patch) | |
tree | c4a6a11a739714eb889bcbf0c7cf63880c789614 | |
parent | f5e854388b4d96cbfa65b95a689c50e5e2d1a2b6 (diff) | |
download | guile-fb61f4b8269b269e86e12ac2f9ead1faeb350436.tar.gz |
net-db.test tweak
* test-suite/tests/net-db.test: Throw 'unresolved if we have a crap DNS
that is returning results for all addresses.
-rw-r--r-- | test-suite/tests/net-db.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/test-suite/tests/net-db.test b/test-suite/tests/net-db.test index 47d12a92f..083cf5f9a 100644 --- a/test-suite/tests/net-db.test +++ b/test-suite/tests/net-db.test @@ -68,8 +68,9 @@ (pass-if "no name" (catch 'getaddrinfo-error (lambda () - (getaddrinfo "does-not-exist") - #f) + (pk "getaddrinfo for \"does-not-exist\" succeeded!" + (getaddrinfo "does-not-exist")) + (throw 'unresolved)) (lambda (key errcode) ;; In some cases (e.g., in a chroot without ;; /etc/{hosts,resolv.conf}), this can result in `EAI_EAGAIN'. |