Support new process-fork form which can kill all other threads. We still see some problems occurring

1 files changed, 16 insertions, 1 deletions

diff --git a/tests/run.scm b/tests/run.scm
index ae12600..13313e5 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -1,7 +1,7 @@
 #;(include "../scsh-process.scm")
 (use scsh-process)
 
-(use test posix srfi-13)
+(use test posix srfi-13 srfi-18 (only setup-api chicken-version version>=?))
 
 (test-begin "scsh-process")
 
@@ -59,6 +59,21 @@
       (delete-file* tmpfile)))
 
   (test-group "Subprocesses"
+    (test "run/string with begin form"
+          "hi, there\n"
+          (run/string (pipe (begin (print "hi, there")) (cat))))
+    (when (version>=? (chicken-version) "4.8.1")
+      (let ((child? #f))
+        (thread-start! (lambda ()
+                         (thread-sleep! 0.5)
+                         (when child? (print "haihai"))))
+        (test "Simple 'begin' form with threading"
+              "hi, there\n"
+              (run/string (pipe (begin (set! child? #t)
+                                       (thread-sleep! 1)
+                                       (print "hi, there"))
+                                (cat))))))
+    
     (let ((outfile "outfile"))
       (test "Subprocess writing to a file"
             "hi, there\n"