summaryrefslogtreecommitdiff
path: root/tests/run.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/run.scm')
-rw-r--r--tests/run.scm17
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"