diff --git a/test-suite/tests/00-socket.test b/test-suite/tests/00-socket.test index 35dd5e965..d3a4f9fbd 100644 --- a/test-suite/tests/00-socket.test +++ b/test-suite/tests/00-socket.test @@ -29,6 +29,12 @@ (when (string-ci=? "darwin" (utsname:sysname (uname))) (throw 'untested))) +(define (skip-on-cygwin-msys) + (when (or (string-contains %host-type "cygwin") + (string-contains %host-type "msys")) + ;; See https://cygwin.com/pipermail/cygwin/2023-June/253785.html + (throw 'unsupported))) + ;;; @@ -341,6 +347,7 @@ (pass-if "bind abstract" (skip-on-darwin) + (skip-on-cygwin-msys) (catch 'system-error (lambda () (bind server-socket AF_UNIX path)