mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

tests: Skip tests of abstract Unix sockets on Darwin.

Browse source 
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:
Tomas Volf 2024-08-10 00:54:28 +02:00 • committed by Ludovic Courtès
parent a8ce7f1f92
commit 478f139d77
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -25,6 +25,10 @@
#:use-module (srfi srfi-26)
#: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))
(pass-if "bind abstract"
(skip-on-darwin)
(catch 'system-error
(lambda ()
(bind server-socket AF_UNIX path)
@ -348,6 +353,7 @@
(apply throw args))))))
(pass-if "listen abstract"
(skip-on-darwin)
(if (not server-bound?)
(throw 'unresolved)
(begin
@ -375,6 +381,7 @@
#t))))
(pass-if "connect abstract"
(skip-on-darwin)
(if (not server-pid)
(throw 'unresolved)
(let ((s (socket AF_UNIX SOCK_STREAM 0)))
@ -383,6 +390,7 @@
#t)))
(pass-if "accept abstract"
(skip-on-darwin)
(if (not server-pid)
(throw 'unresolved)
(begin