When fork unavailable, skip standalone tests that require it

MinGW is missing fork.

* test-suite/standalone/test-close-on-exec: modified
* test-suite/standalone/test-signal-fork: modified

2 files changed, 7 insertions, 1 deletions

diff --git a/test-suite/standalone/test-close-on-exec b/test-suite/standalone/test-close-on-exec
index 1eb46c20a..6525f0d77 100755
--- a/test-suite/standalone/test-close-on-exec
+++ b/test-suite/standalone/test-close-on-exec
@@ -4,6 +4,9 @@ exec guile -q -s "$0" "$@"
 
 ;;; Exercise the 'e' flag to 'open-file' (O_CLOEXEC).
 
+(unless (provided? 'fork)
+  (exit 77))
+
 (define file
   (string-append (or (getenv "TMPDIR") "/tmp")
                  "/guile-test-close-on-exec-"
diff --git a/test-suite/standalone/test-signal-fork b/test-suite/standalone/test-signal-fork
index 815118176..4307a61c1 100755
--- a/test-suite/standalone/test-signal-fork
+++ b/test-suite/standalone/test-signal-fork
@@ -4,7 +4,7 @@ exec guile -q -s "$0" "$@"
 !#
 ;;; test-signal-fork --- Signal thread vs. fork.     -*- Scheme -*-
 ;;;
-;;; Copyright (C) 2021 Free Software Foundation, Inc.
+;;; Copyright (C) 2021, 2022 Free Software Foundation, Inc.
 ;;;
 ;;; This library is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU Lesser General Public
@@ -28,6 +28,9 @@ exec guile -q -s "$0" "$@"
 
 (use-modules (ice-9 match))
 
+(unless (provided? 'fork)
+  (exit 77))
+
 (setvbuf (current-output-port) 'none)
 (sigaction SIGCHLD pk)                            ;start signal thread