aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/test.lux
diff options
context:
space:
mode:
authorEduardo Julian2021-08-11 02:38:59 -0400
committerEduardo Julian2021-08-11 02:38:59 -0400
commita62ce3f9c2b605e0033f4772b0f64c4525de4d86 (patch)
treeecbabe8f110d82b2e6481cf7c0532d4bd4386570 /stdlib/source/test/lux/test.lux
parent464b6e8f5e6c62f58fa8c7ff61ab2ad215e98bd1 (diff)
Relocated maybe and lazy from data to control.
Diffstat (limited to 'stdlib/source/test/lux/test.lux')
-rw-r--r--stdlib/source/test/lux/test.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/test/lux/test.lux b/stdlib/source/test/lux/test.lux
index 0df2e43d3..fe60e832c 100644
--- a/stdlib/source/test/lux/test.lux
+++ b/stdlib/source/test/lux/test.lux
@@ -70,7 +70,7 @@
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 !
@@ -105,7 +105,7 @@
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
@@ -128,7 +128,7 @@
(: /.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
@@ -147,7 +147,7 @@
(do !
[_ (in [])
.let [_ (undefined)
- _ (io.run (atom.update! inc counter))]]
+ _ (io.run! (atom.update! inc counter))]]
(/.test "" true)))]
(in (do async.monad
[[tally error] assertion