[Guile-commits] 05/13: tests: Skip tests of abstract Unix sockets on Darwin.

[Ludovic Courtès]

civodul pushed a commit to branch main
in repository guile.

commit 478f139d77649cb50b9fa5492b085b42a48dd811
Author: Tomas Volf <~@wolfsden.cz>
AuthorDate: Sat Aug 10 00:54:28 2024 +0200

    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>
---
 test-suite/tests/00-socket.test | 8 ++++++++
 1 file changed, 8 insertions(+)

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