diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/test.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/test/lux/test.lux b/stdlib/source/test/lux/test.lux index 04a4d0734..543eb94cd 100644 --- a/stdlib/source/test/lux/test.lux +++ b/stdlib/source/test/lux/test.lux @@ -65,12 +65,12 @@ /.Test (do {! random.monad} [seed random.nat - #let [[read write] (: [(async.Async Nat) (async.Resolver Nat)] + .let [[read write] (: [(async.Async Nat) (async.Resolver Nat)] (async.async []))] pre (<| (/.seed seed) (do ! [sample random.nat - #let [wrote? (io.run (write sample))]] + .let [wrote? (io.run (write sample))]] (/.test "" wrote?))) post (<| (/.seed seed) (do ! @@ -100,12 +100,12 @@ (n.= 1 (get@ #/.failures tally))))))) (do {! random.monad} [expected (\ ! map (|>> (n.% 10) inc) random.nat) - #let [counter (: (Atom Nat) + .let [counter (: (Atom Nat) (atom.atom 0))] times_assertion (<| (/.times expected) (do ! [_ (in []) - #let [_ (io.run (atom.update inc counter))]] + .let [_ (io.run (atom.update inc counter))]] (/.test "" true)))] (in (do async.monad [[tally error] times_assertion @@ -121,14 +121,14 @@ ($_ /.and (do {! random.monad} [expected (\ ! map (|>> (n.% 10) inc) random.nat) - #let [counter (: (Atom Nat) + .let [counter (: (Atom Nat) (atom.atom 0))] assertion (<| /.in_parallel (list.repeat expected) (: /.Test) (do ! [_ (in []) - #let [_ (io.run (atom.update inc counter))]] + .let [_ (io.run (atom.update inc counter))]] (/.test "" true)))] (in (do async.monad [[tally error] assertion @@ -139,14 +139,14 @@ (n.= 0 (get@ #/.failures tally))))))) (do {! random.monad} [expected (\ ! map (|>> (n.% 10) inc) random.nat) - #let [counter (: (Atom Nat) + .let [counter (: (Atom Nat) (atom.atom 0))] assertion (<| /.in_parallel (list.repeat expected) (: /.Test) (do ! [_ (in []) - #let [_ (undefined) + .let [_ (undefined) _ (io.run (atom.update inc counter))]] (/.test "" true)))] (in (do async.monad |