[Guile-commits] branch main updated: When fork unavailable, skip standalone tests that require it

[Mike Gran]

This is an automated email from the git hooks/post-receive script.

mike121 pushed a commit to branch main
in repository guile.

The following commit(s) were added to refs/heads/main by this push:
     new 130463be2 When fork unavailable, skip standalone tests that require it
130463be2 is described below

commit 130463be2a38278f6b3057a4c4090b9d21d4bbcd
Author: Michael Gran <spk121@yahoo.com>
AuthorDate: Tue Sep 20 15:01:20 2022 -0700

    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
---
 test-suite/standalone/test-close-on-exec | 3 +++
 test-suite/standalone/test-signal-fork   | 5 ++++-
 2 files changed, 7 insertions(+), 1 deletion(-)

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