mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Skip "wrong service name" `getaddrinfo' test on Darwin 9.2.

Browse source 
* test-suite/tests/net-db.test ("getaddrinfo")["wrong service name"]:
  Skip test on Darwin 9.2.
This commit is contained in:
Ludovic Courtès 2010-02-16 19:13:56 +01:00
parent 8a8da78d97
commit 2b386ab09f
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -81,7 +81,15 @@
(catch 'getaddrinfo-error (catch 'getaddrinfo-error
(lambda () (lambda ()
(getaddrinfo "127.0.0.1" "does-not-exist" AI_NUMERICHOST) (getaddrinfo "127.0.0.1" "does-not-exist" AI_NUMERICHOST)
#f)
;; XXX: The call above unexpectedly suceeds on
;; `i386-apple-darwin9.2.2', but not on `i386-apple-darwin9.6.0'.
;; For now we just skip it until a better solution is found. See
;; http://lists.gnu.org/archive/html/bug-gnulib/2010-02/msg00061.html
;; for details.
(if (string-contains %host-type "darwin9.2")
(throw 'unresolved)
#f))
(lambda (key errcode) (lambda (key errcode)
;; According to POSIX, both error codes are valid (glibc 2.11 ;; According to POSIX, both error codes are valid (glibc 2.11
;; chooses `EAI_SERVICE'; Darwin chooses `EAI_NONAME'.) ;; chooses `EAI_SERVICE'; Darwin chooses `EAI_NONAME'.)