From 0dd1e60a9cb3df9a275be60d558dccb2a4cc5061 Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Tue, 2 Oct 2012 00:41:27 +0100 Subject: Fix run/collecting* and add a testcase for it --- tests/run.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'tests') 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" -- cgit v1.2.3