summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/run.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/run.scm b/tests/run.scm
index c4ab584..b5fa419 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -107,6 +107,11 @@
"hi, there\n"
(run/string (sh -c "echo 'hi, there' >&2") (= 2 1)))
+ ;; Also reported by Diego "dieggsy"
+ (test "run/string where (begin) is piped to a program"
+ "1\n"
+ (run/string (pipe (begin (print "hey")) (wc -l))))
+
(test "Unquote-splicing run/string"
"hi, there\n"
(run/string (echo ,@(list "hi," "there"))))