diff options
| author | Eduardo Julian | 2021-08-07 02:20:09 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-08-07 02:20:09 -0400 |
| commit | 17e7566be51df5e428a6b10e6469201a8a9468da (patch) | |
| tree | 0d4ed80c9c9d846784b5bf460f6e6f5fc5b96663 /stdlib/source/test/lux/test.lux | |
| parent | eff4c59794868b89d60fdc411f9b544a270b817e (diff) | |
Made the be/de macros for (co)monadic expression extensible.
Diffstat (limited to 'stdlib/source/test/lux/test.lux')
| -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 |