diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/control/concurrency/promise.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/test/lux/control/concurrency/promise.lux b/stdlib/source/test/lux/control/concurrency/promise.lux index 2495223b5..1c8933499 100644 --- a/stdlib/source/test/lux/control/concurrency/promise.lux +++ b/stdlib/source/test/lux/control/concurrency/promise.lux @@ -109,10 +109,10 @@ (i.>= (.int to-wait) (duration.to-millis (instant.span pre post))))))) (wrap (do /.monad - [?left (/.or (/.delay 10 leftE) - (/.delay 20 dummy)) - ?right (/.or (/.delay 20 dummy) - (/.delay 10 rightE))] + [?left (/.or (/.delay 100 leftE) + (/.delay 200 dummy)) + ?right (/.or (/.delay 200 dummy) + (/.delay 100 rightE))] (_.claim [/.or] (case [?left ?right] [(#.Left leftA) (#.Right rightA)] @@ -122,10 +122,10 @@ _ false)))) (wrap (do /.monad - [leftA (/.either (/.delay 10 leftE) - (/.delay 20 dummy)) - rightA (/.either (/.delay 20 dummy) - (/.delay 10 rightE))] + [leftA (/.either (/.delay 100 leftE) + (/.delay 200 dummy)) + rightA (/.either (/.delay 200 dummy) + (/.delay 100 rightE))] (_.claim [/.either] (n.= (n.+ leftE rightE) (n.+ leftA rightA))))) |