From 1759151875b7359ab52d9e7c2ac25dad9086a837 Mon Sep 17 00:00:00 2001 From: Calvin Rose Date: Sun, 15 Nov 2020 10:12:10 -0600 Subject: [PATCH] Change suite 9 test a bit. --- test/suite0009.janet | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/test/suite0009.janet b/test/suite0009.janet index 97b896ec..5c444b46 100644 --- a/test/suite0009.janet +++ b/test/suite0009.janet @@ -51,16 +51,18 @@ # Create pipe (var pipe-counter 0) -(def [reader writer] (os/pipe)) -(ev/spawn - (while (ev/read reader 3) - (++ pipe-counter)) - (assert (= 20 pipe-counter) "ev/pipe 1")) +(def chan (ev/chan 10)) +(let [[reader writer] (os/pipe)] + (ev/spawn + (while (ev/read reader 3) + (++ pipe-counter)) + (assert (= 20 pipe-counter) "ev/pipe 1") + (ev/give chan 1)) -(for i 0 10 - (ev/write writer "xxx---")) + (for i 0 10 + (ev/write writer "xxx---")) -(ev/close writer) -(ev/sleep 0.1) + (ev/close writer) + (ev/take chan)) (end-suite)