mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

When fork unavailable, skip standalone tests that require it

Browse source 
MinGW is missing fork.

* test-suite/standalone/test-close-on-exec: modified
* test-suite/standalone/test-signal-fork: modified
This commit is contained in:
Michael Gran 2022-09-20 15:01:20 -07:00
parent 61393a5da6
commit 130463be2a
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
test-suite/standalone/test-close-on-exec
View file

@ -4,6 +4,9 @@ exec guile -q -s "$0" "$@"
;;; Exercise the 'e' flag to 'open-file' (O_CLOEXEC). ;;; Exercise the 'e' flag to 'open-file' (O_CLOEXEC).
(unless (provided? 'fork)
(exit 77))
(define file (define file
(string-append (or (getenv "TMPDIR") "/tmp") (string-append (or (getenv "TMPDIR") "/tmp")
"/guile-test-close-on-exec-" "/guile-test-close-on-exec-"

5
test-suite/standalone/test-signal-fork
View file

@ -4,7 +4,7 @@ exec guile -q -s "$0" "$@"
!# !#
;;; test-signal-fork --- Signal thread vs. fork. -*- Scheme -*- ;;; 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 ;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Lesser General Public ;;; 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)) (use-modules (ice-9 match))
(unless (provided? 'fork)
(exit 77))
(setvbuf (current-output-port) 'none) (setvbuf (current-output-port) 'none)
(sigaction SIGCHLD pk) ;start signal thread (sigaction SIGCHLD pk) ;start signal thread