mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

tests: Skip IPv6 socket tests when OS support is missing.

Browse source 
Reported by Samuel Thibault <samuel.thibault@gnu.org>
and Peter Simons <simons@cryp.to>.

* test-suite/tests/00-socket.test ("AF_INET6/SOCK_STREAM"): Throw
  `unresolved' when `bind' throws EADDRNOTAVAIL.
This commit is contained in:
Ludovic Courtès 2013-04-09 08:49:06 +02:00
parent 22c76fd822
commit 3c8f2ae958
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
test-suite/tests/00-socket.test
View file

@ -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"