summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/run.scm16
1 files changed, 15 insertions, 1 deletions
diff --git a/test/run.scm b/test/run.scm
index 1256845..d190c95 100644
--- a/test/run.scm
+++ b/test/run.scm
@@ -33,6 +33,20 @@
(test "Simple run/string"
"hi, there\n"
- (run/string (echo "hi, there"))))
+ (run/string (echo "hi, there")))
+
+ (test "Simple run/sexp"
+ '("hi, there")
+ (run/sexp (echo "(\"hi, there\")")))
+
+ (test "Simple run/sexps"
+ '(("hi, there") (a b c))
+ (run/sexps (echo "(\"hi, there\") (a b c)")))
+
+ (test "Nested output redirection with pipe+"
+ "foo\n"
+ (run/string (pipe+ ((1 0))
+ (pipe+ ((2 0)) (sh -c "echo foo >&2") (cat))
+ (cat)))))
(test-exit) \ No newline at end of file