summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTomas Volf <~@wolfsden.cz>2024-08-10 00:54:28 +0200
committerLudovic Courtès <ludo@gnu.org>2024-10-20 21:22:22 +0200
commit478f139d77649cb50b9fa5492b085b42a48dd811 (patch)
tree037cb920e71b34becadd5a113b3c2184ffd9f23d
parenta8ce7f1f92c60fc191bb6d27502f149fcc68298c (diff)
downloadguile-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.test8
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