aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/control/concurrency/async.lux
diff options
context:
space:
mode:
authorEduardo Julian2022-03-16 08:37:23 -0400
committerEduardo Julian2022-03-16 08:37:23 -0400
commitbf53ee92fc3c33a4885aa227e55d24f7ba3cb2c4 (patch)
tree49683a62ae8e110c62b42a9a6386bb2ddb3c47c6 /stdlib/source/test/lux/control/concurrency/async.lux
parentd710d9f4fc098e7c243c8a5f23cd42683f13e07f (diff)
De-sigil-ification: prefix :
Diffstat (limited to 'stdlib/source/test/lux/control/concurrency/async.lux')
-rw-r--r--stdlib/source/test/lux/control/concurrency/async.lux16
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/test/lux/control/concurrency/async.lux b/stdlib/source/test/lux/control/concurrency/async.lux
index faff80b79..7a61769b8 100644
--- a/stdlib/source/test/lux/control/concurrency/async.lux
+++ b/stdlib/source/test/lux/control/concurrency/async.lux
@@ -67,8 +67,8 @@
($monad.spec ..injection ..comparison /.monad))
(in (do /.monad
- [.let [[async resolver] (: [(/.Async Nat) (/.Resolver Nat)]
- (/.async []))]
+ [.let [[async resolver] (is [(/.Async Nat) (/.Resolver Nat)]
+ (/.async []))]
resolved? (/.future (resolver expected))
actual async]
(_.cover' [/.Async /.Resolver /.async]
@@ -134,8 +134,8 @@
(n.+ leftA rightA)))))
(in (do /.monad
[?actual (/.future (/.value (/.resolved expected)))
- .let [[async resolver] (: [(/.Async Nat) (/.Resolver Nat)]
- (/.async []))]
+ .let [[async resolver] (is [(/.Async Nat) (/.Resolver Nat)]
+ (/.async []))]
?never (/.future (/.value async))]
(_.cover' [/.value]
(case [?actual ?never]
@@ -146,8 +146,8 @@
false))))
(in (do /.monad
[yep (/.future (/.resolved? (/.resolved expected)))
- .let [[async resolver] (: [(/.Async Nat) (/.Resolver Nat)]
- (/.async []))]
+ .let [[async resolver] (is [(/.Async Nat) (/.Resolver Nat)]
+ (/.async []))]
nope (/.future (/.resolved? async))]
(_.cover' [/.resolved?]
(and yep
@@ -163,8 +163,8 @@
_
false))))
(in (do /.monad
- [.let [box (: (Atom Nat)
- (atom.atom dummy))]
+ [.let [box (is (Atom Nat)
+ (atom.atom dummy))]
_ (/.future (/.upon! (function (_ value)
(atom.write! value box))
(/.resolved expected)))