[Guile-commits] GNU Guile branch, master, updated. release_1-9-7-66-g25bc75c

[Ludovic Courtès]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=25bc75c4316497c95b1c3fc17f1678ac47d32041

The branch, master has been updated
       via  25bc75c4316497c95b1c3fc17f1678ac47d32041 (commit)
      from  2fe5eb561c02ceda6e9244e14c68b2072fb94eb5 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 25bc75c4316497c95b1c3fc17f1678ac47d32041
Author: Ludovic Courtès <address@hidden>
Date:   Mon Feb 15 16:10:01 2010 +0100

    Fix `getaddrinfo' tests.
    
    Thanks to Ken Raeburn.
    
    * test-suite/tests/net-db.test ("getaddrinfo")["port 80"]: Fix bogus
      check of `addrinfo:flags' (POSIX says that the "contents of the
      ai_flags field of the returned structures are undefined.").
      ("wrong service name"): Accept `EAI_NONAME' as a valid error code.

-----------------------------------------------------------------------

Summary of changes:
 test-suite/tests/net-db.test |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/test-suite/tests/net-db.test b/test-suite/tests/net-db.test
index 23a534d..7364d82 100644
--- a/test-suite/tests/net-db.test
+++ b/test-suite/tests/net-db.test
@@ -50,7 +50,6 @@
                (fold (lambda (ai ok?)
                        (let ((sa (addrinfo:addr ai)))
                          (and ok?
-                              (> (logand (addrinfo:flags ai) AI_ADDRCONFIG) 0)
                               (= (sockaddr:port sa) 80))))
                      #t
                      ai))))
@@ -73,5 +72,8 @@
             (getaddrinfo "127.0.0.1" "does-not-exist" AI_NUMERICHOST)
             #f)
           (lambda (key errcode)
-            (and (= errcode EAI_SERVICE)
+            ;; According to POSIX, both error codes are valid (glibc 2.11
+            ;; chooses `EAI_SERVICE'; Darwin chooses `EAI_NONAME'.)
+            (and (or (= errcode EAI_SERVICE)
+                     (= errcode EAI_NONAME))
                  (string? (gai-strerror errcode))))))))


hooks/post-receive
-- 
GNU Guile