summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/run.scm13
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/run.scm b/tests/run.scm
index f4409fd..f05d643 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -32,8 +32,21 @@
(test-assert "signal wasn't unmasked" (signal-masked? signal/chld))
+ (test "sigchld is masked inside child process"
+ "yes"
+ (run/string*
+ (lambda ()
+ (display (if (signal-masked? signal/chld) "yes" "no")))))
+
(signal-unmask! signal/chld)
+ (test "after unmasking, sigchld is also unmasked inside child process"
+ "yes"
+ (run/string*
+ (lambda ()
+ (display (if (signal-masked? signal/chld) "no" "yes")))))
+
+
;; Reported by Haochi Kiang
(test "run/string* does not redirect stderr"
'("This should go to stdout" "")