summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorPeter Bex <peter@more-magic.net>2012-10-01 17:20:20 +0100
committerPeter Bex <peter@more-magic.net>2012-10-01 17:20:20 +0100
commit11db27b4994ddcc1073ceb2b69b73601e29ed164 (patch)
tree342a30a3b38d86d579eb9d5e376d29094b6408bf /test
parent9a9895123961e426afbaf33b6662f190f58f0dd7 (diff)
downloadscsh-process-11db27b4994ddcc1073ceb2b69b73601e29ed164.tar.gz
Fix nested pipe expressions and run/sexps, adding tests for both
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