diff options
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" |