diff options
| author | Peter Bex <peter@more-magic.net> | 2012-10-02 00:41:27 +0100 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2012-10-02 00:41:27 +0100 |
| commit | 0dd1e60a9cb3df9a275be60d558dccb2a4cc5061 (patch) | |
| tree | 457c717c3baf9c592dab53dc42b0a36727287edb /tests/run.scm | |
| parent | aa8b8adf9492108580194a49fd98888a6dbc1909 (diff) | |
| download | scsh-process-0dd1e60a9cb3df9a275be60d558dccb2a4cc5061.tar.gz | |
Fix run/collecting* and add a testcase for it
Diffstat (limited to 'tests/run.scm')
| -rw-r--r-- | tests/run.scm | 8 |
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" |