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

Make `sockets.test' more robust.

Browse source 
* test-suite/tests/socket.test ("AF_INET6/SOCK_STREAM"): Gracefully
  handle cases where this combination is not supported.
This commit is contained in:
Ludovic Courtès 2010-01-19 18:49:06 +01:00
parent 912a870246
commit d532c41b91
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
test-suite/tests/socket.test
View file

@ -1,6 +1,6 @@
;;;; socket.test --- test socket functions -*- scheme -*-
;;;;
;;;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
;;;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010 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
@ -343,7 +343,9 @@
;; testing `bind', `listen' and `connect' on stream-oriented sockets
(let ((server-socket (socket AF_INET6 SOCK_STREAM 0))
(let ((server-socket
;; Some platforms don't support this protocol/family combination.
(false-if-exception (socket AF_INET6 SOCK_STREAM 0)))
(server-bound? #f)
(server-listening? #f)
(server-pid #f)
@ -352,6 +354,8 @@
(client-port 9998))
(pass-if "bind"
(if (not server-socket)
(throw 'unresolved))
(catch 'system-error
(lambda ()
(bind server-socket AF_INET6 ipv6-addr server-port)
@ -363,8 +367,10 @@
(else (apply throw args)))))))
(pass-if "bind/sockaddr"
(let* ((sock (socket AF_INET6 SOCK_STREAM 0))
(let* ((sock (false-if-exception (socket AF_INET6 SOCK_STREAM 0)))
(sockaddr (make-socket-address AF_INET6 ipv6-addr client-port)))
(if (not sock)
(throw 'unresolved))
(catch 'system-error
(lambda ()
(bind sock sockaddr)