From fb61f4b8269b269e86e12ac2f9ead1faeb350436 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sat, 28 Aug 2010 12:02:12 -0700 Subject: [PATCH] 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. --- test-suite/tests/net-db.test | 5 +++-- 1 file 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'.