summaryrefslogtreecommitdiff
path: root/tests/run.scm
diff options
context:
space:
mode:
authorPeter Bex <peter@more-magic.net>2012-10-02 00:41:27 +0100
committerPeter Bex <peter@more-magic.net>2012-10-02 00:41:27 +0100
commit0dd1e60a9cb3df9a275be60d558dccb2a4cc5061 (patch)
tree457c717c3baf9c592dab53dc42b0a36727287edb /tests/run.scm
parentaa8b8adf9492108580194a49fd98888a6dbc1909 (diff)
downloadscsh-process-0dd1e60a9cb3df9a275be60d558dccb2a4cc5061.tar.gz
Fix run/collecting* and add a testcase for it
Diffstat (limited to 'tests/run.scm')
-rw-r--r--tests/run.scm8
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/run.scm b/tests/run.scm
index fbb1019..3526ec0 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -69,7 +69,13 @@
"foo\n"
(run/string (pipe+ ((1 0))
(pipe+ ((2 0)) (sh -c "echo foo >&2") (cat))
- (cat)))))
+ (cat))))
+
+ (test "Collecting FDs"
+ (list 0 "foo\n" "bar\n")
+ (receive (status port1 port2)
+ (run/collecting (2 1) (sh -c "echo foo >&2; echo bar"))
+ (list status (read-all port1) (read-all port2)))))
(test-group "Conditional process sequencing forms"
(test "&& runs for all true values"