From 130463be2a38278f6b3057a4c4090b9d21d4bbcd Mon Sep 17 00:00:00 2001 From: Michael Gran Date: Tue, 20 Sep 2022 15:01:20 -0700 Subject: 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 -- cgit v1.2.3