mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-12 06:41:13 +02:00
tests: Skip tests of abstract Unix sockets on Darwin.
Darwin does not support abstract Unix sockets, so mark the tests as skipped. * test-suite/tests/00-socket.test (skip-on-darwin): New procedure. ("bind abstract", "listen abstract", "connect abstract") ("accept abstract"): Skip on Darwin. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
a8ce7f1f92
commit
478f139d77
1 changed files with 8 additions and 0 deletions
|
@ -25,6 +25,10 @@
|
||||||
#:use-module (srfi srfi-26)
|
#:use-module (srfi srfi-26)
|
||||||
#:use-module (test-suite lib))
|
#:use-module (test-suite lib))
|
||||||
|
|
||||||
|
(define (skip-on-darwin)
|
||||||
|
(when (string-ci=? "darwin" (utsname:sysname (uname)))
|
||||||
|
(throw 'untested)))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;;;
|
;;;
|
||||||
|
@ -336,6 +340,7 @@
|
||||||
(set! path (string-append "\x00" path))
|
(set! path (string-append "\x00" path))
|
||||||
|
|
||||||
(pass-if "bind abstract"
|
(pass-if "bind abstract"
|
||||||
|
(skip-on-darwin)
|
||||||
(catch 'system-error
|
(catch 'system-error
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(bind server-socket AF_UNIX path)
|
(bind server-socket AF_UNIX path)
|
||||||
|
@ -348,6 +353,7 @@
|
||||||
(apply throw args))))))
|
(apply throw args))))))
|
||||||
|
|
||||||
(pass-if "listen abstract"
|
(pass-if "listen abstract"
|
||||||
|
(skip-on-darwin)
|
||||||
(if (not server-bound?)
|
(if (not server-bound?)
|
||||||
(throw 'unresolved)
|
(throw 'unresolved)
|
||||||
(begin
|
(begin
|
||||||
|
@ -375,6 +381,7 @@
|
||||||
#t))))
|
#t))))
|
||||||
|
|
||||||
(pass-if "connect abstract"
|
(pass-if "connect abstract"
|
||||||
|
(skip-on-darwin)
|
||||||
(if (not server-pid)
|
(if (not server-pid)
|
||||||
(throw 'unresolved)
|
(throw 'unresolved)
|
||||||
(let ((s (socket AF_UNIX SOCK_STREAM 0)))
|
(let ((s (socket AF_UNIX SOCK_STREAM 0)))
|
||||||
|
@ -383,6 +390,7 @@
|
||||||
#t)))
|
#t)))
|
||||||
|
|
||||||
(pass-if "accept abstract"
|
(pass-if "accept abstract"
|
||||||
|
(skip-on-darwin)
|
||||||
(if (not server-pid)
|
(if (not server-pid)
|
||||||
(throw 'unresolved)
|
(throw 'unresolved)
|
||||||
(begin
|
(begin
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue