| diff --git a/test-suite/tests/00-socket.test b/test-suite/tests/00-socket.test
|
| index d3a4f9fbd..faf029132 100644
|
| --- a/test-suite/tests/00-socket.test
|
| +++ b/test-suite/tests/00-socket.test
|
| @@ -29,6 +29,10 @@
|
| (when (string-ci=? "darwin" (utsname:sysname (uname)))
|
| (throw 'untested)))
|
|
|
| +(define (skip-on-freebsd)
|
| + (when (string-ci=? "FreeBSD" (utsname:sysname (uname)))
|
| + (throw 'untested)))
|
| +
|
| (define (skip-on-cygwin-msys)
|
| (when (or (string-contains %host-type "cygwin")
|
| (string-contains %host-type "msys"))
|
| @@ -348,6 +352,7 @@
|
| (pass-if "bind abstract"
|
| (skip-on-darwin)
|
| (skip-on-cygwin-msys)
|
| + (skip-on-freebsd)
|
| (catch 'system-error
|
| (lambda ()
|
| (bind server-socket AF_UNIX path)
|
| diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
|
| index 82881aa28..a29d5652c 100644
|
| --- a/test-suite/tests/ports.test
|
| +++ b/test-suite/tests/ports.test
|
| @@ -43,6 +43,10 @@
|
| (when (string-ci=? "darwin" (utsname:sysname (uname)))
|
| (throw 'untested)))
|
|
|
| +(define (skip-on-freebsd)
|
| + (when (string-ci=? "FreeBSD" (utsname:sysname (uname)))
|
| + (throw 'untested)))
|
| +
|
|
|
|
|
| ;;;; Some general utilities for testing ports.
|
|
|
| @@ -220,6 +224,7 @@
|
| (pass-if-equal "SEEK_DATA while in hole"
|
| 4096
|
| (skip-on-darwin)
|
| + (skip-on-freebsd)
|
| (if (defined? 'SEEK_DATA)
|
| (call-with-input-file file
|
| (lambda (port)
|
| @@ -233,6 +238,7 @@
|
| (pass-if-equal "SEEK_HOLE while in hole"
|
| 10
|
| (skip-on-darwin)
|
| + (skip-on-freebsd)
|
| (if (defined? 'SEEK_HOLE)
|
| (call-with-input-file file
|
| (lambda (port)
|
| diff --git a/test-suite/tests/posix.test b/test-suite/tests/posix.test
|
| index 7b7590b9b..aa8a0bf11 100644
|
| --- a/test-suite/tests/posix.test
|
| +++ b/test-suite/tests/posix.test
|
| @@ -26,6 +26,10 @@
|
| (when (string-ci=? "darwin" (utsname:sysname (uname)))
|
| (throw 'untested)))
|
|
|
| +(define (skip-on-freebsd)
|
| + (when (string-ci=? "FreeBSD" (utsname:sysname (uname)))
|
| + (throw 'untested)))
|
| +
|
| ;; FIXME: The following exec tests are disabled since on an i386 debian with
|
| ;; glibc 2.3.2 they seem to interact badly with threads.test, the latter
|
| ;; dies with signal 32 (one of the SIGRTs). Don't know how or why, or who's
|
| @@ -383,6 +387,7 @@
|
|
|
| (pass-if-equal "https://bugs.gnu.org/63024"
|
| 0
|
| + (skip-on-freebsd)
|
| (if (file-exists? "/proc/self/fd/0") ;on GNU/Linux?
|
| (parameterize ((current-output-port (%make-void-port "w0")))
|
| (system* "guile" "-c"
|
| @@ -434,7 +439,7 @@
|
| (let ((str (get-string-all (car c+d))))
|
| (close-port (car c+d))
|
| (waitpid pid)
|
| - str)))
|
| + (string-trim str))))
|
|
|
| (pass-if-equal "env with #:environment and #:output"
|
| "GNU=guile\n"
|
| @@ -485,6 +490,7 @@
|
| ;; write such test. However due to posix_spawnp being buggy on macOS it is
|
| ;; always replaced, so whatever.
|
| (skip-on-darwin)
|
| + (skip-on-freebsd)
|
| (catch 'system-error
|
| (lambda ()
|
| (spawn "this-does-not-exist" '("nope")
|