diff options
author | Tomas Volf <~@wolfsden.cz> | 2024-08-10 00:54:28 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2024-10-20 21:22:22 +0200 |
commit | 478f139d77649cb50b9fa5492b085b42a48dd811 (patch) | |
tree | 037cb920e71b34becadd5a113b3c2184ffd9f23d | |
parent | a8ce7f1f92c60fc191bb6d27502f149fcc68298c (diff) | |
download | guile-478f139d77649cb50b9fa5492b085b42a48dd811.tar.gz |
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>
-rw-r--r-- | test-suite/tests/00-socket.test | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test-suite/tests/00-socket.test b/test-suite/tests/00-socket.test index 17e686225..35dd5e965 100644 --- a/test-suite/tests/00-socket.test +++ b/test-suite/tests/00-socket.test @@ -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 |