[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-328-g3c8f2ae

[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=3c8f2ae958f96f16ffcbb74e0b022bd9999ecb03

The branch, stable-2.0 has been updated
       via  3c8f2ae958f96f16ffcbb74e0b022bd9999ecb03 (commit)
      from  22c76fd82288fee2cb0bb744c2e28d1be42204de (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 3c8f2ae958f96f16ffcbb74e0b022bd9999ecb03
Author: Ludovic Courtès <address@hidden>
Date:   Tue Apr 9 08:49:06 2013 +0200

    tests: Skip IPv6 socket tests when OS support is missing.
    
    Reported by Samuel Thibault <address@hidden>
    and Peter Simons <address@hidden>.
    
    * test-suite/tests/00-socket.test ("AF_INET6/SOCK_STREAM"): Throw
      `unresolved' when `bind' throws EADDRNOTAVAIL.

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

Summary of changes:
 test-suite/tests/00-socket.test |   11 ++++++++++-
 1 files changed, 10 insertions(+), 1 deletions(-)

diff --git a/test-suite/tests/00-socket.test b/test-suite/tests/00-socket.test
index 8079cf5..5093575 100644
--- a/test-suite/tests/00-socket.test
+++ b/test-suite/tests/00-socket.test
@@ -1,7 +1,7 @@
 ;;;; socket.test --- test socket functions     -*- scheme -*-
 ;;;;
 ;;;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010,
-;;;;   2011 Free Software Foundation, Inc.
+;;;;   2011, 2013 Free Software Foundation, Inc.
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -442,6 +442,14 @@
            (lambda args
              (let ((errno (system-error-errno args)))
                (cond ((= errno EADDRINUSE) (throw 'unresolved))
+
+                      ;; On Linux-based systems, when `ipv6' support is
+                      ;; missing (for instance, `ipv6' is loaded and
+                      ;; /proc/sys/net/ipv6/conf/all/disable_ipv6 is set
+                      ;; to 1), the socket call above succeeds but
+                      ;; bind(2) fails like this.
+                      ((= errno EADDRNOTAVAIL) (throw 'unresolved))
+
                      (else (apply throw args)))))))
 
        (pass-if "bind/sockaddr"
@@ -456,6 +464,7 @@
              (lambda args
                (let ((errno (system-error-errno args)))
                  (cond ((= errno EADDRINUSE) (throw 'unresolved))
+                        ((= errno EADDRNOTAVAIL) (throw 'unresolved))
                        (else (apply throw args))))))))
 
        (pass-if "listen"


hooks/post-receive
-- 
GNU Guile