aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/test.lux
diff options
context:
space:
mode:
authorEduardo Julian2021-08-09 23:02:01 -0400
committerEduardo Julian2021-08-09 23:02:01 -0400
commit464b6e8f5e6c62f58fa8c7ff61ab2ad215e98bd1 (patch)
tree1ae9d95956cee4251cd29a3e24c246c4360d567d /stdlib/source/test/lux/test.lux
parentf621a133e6e0a516c0586270fea8eaffb4829d82 (diff)
Improved single-line comment syntax (from "##" to "...").
Diffstat (limited to 'stdlib/source/test/lux/test.lux')
-rw-r--r--stdlib/source/test/lux/test.lux16
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/test/lux/test.lux b/stdlib/source/test/lux/test.lux
index 574feb176..0df2e43d3 100644
--- a/stdlib/source/test/lux/test.lux
+++ b/stdlib/source/test/lux/test.lux
@@ -105,11 +105,11 @@
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
- actual (async.future (atom.read counter))]
+ actual (async.future (atom.read! counter))]
(/.cover' [/.times]
(and (n.= expected actual)
(n.= 1 (get@ #/.successes tally))
@@ -124,15 +124,15 @@
.let [counter (: (Atom Nat)
(atom.atom 0))]
assertion (<| /.in_parallel
- (list.repeat expected)
+ (list.repeated 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
- actual (async.future (atom.read counter))]
+ actual (async.future (atom.read! counter))]
(/.cover' [/.in_parallel]
(and (n.= expected actual)
(n.= expected (get@ #/.successes tally))
@@ -142,16 +142,16 @@
.let [counter (: (Atom Nat)
(atom.atom 0))]
assertion (<| /.in_parallel
- (list.repeat expected)
+ (list.repeated expected)
(: /.Test)
(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
- actual (async.future (atom.read counter))]
+ actual (async.future (atom.read! counter))]
(/.cover' [/.error_during_execution]
(let [correct_error! (text.contains? (get@ #exception.label /.error_during_execution) error)
no_complete_run! (n.= 0 actual)