[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] branch main updated: When fork unavailable, skip standal
From: |
Mike Gran |
Subject: |
[Guile-commits] branch main updated: When fork unavailable, skip standalone tests that require it |
Date: |
Tue, 20 Sep 2022 18:12:06 -0400 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] branch main updated: When fork unavailable, skip standalone tests that require it,
Mike Gran <=