aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/test/lux.lux10
1 files changed, 7 insertions, 3 deletions
diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux
index 8d9f68922..8532b3e12 100644
--- a/stdlib/source/test/lux.lux
+++ b/stdlib/source/test/lux.lux
@@ -11,7 +11,9 @@
[monad (#+ do)]
[predicate (#+ Predicate)]]
[control
- ["." io (#+ io)]]
+ ["." io (#+ io)]
+ [concurrency
+ ["." atom (#+ Atom)]]]
[data
["." name]
[text
@@ -52,12 +54,14 @@
(def: identity
Test
(do {! random.monad}
- [self (random.unicode 1)]
+ [#let [object (: (Random (Atom Text))
+ (\ ! map atom.atom (random.unicode 1)))]
+ self object]
($_ _.and
(_.test "Every value is identical to itself."
(is? self self))
(do !
- [other (random.unicode 1)]
+ [other object]
(_.test "Values created separately can't be identical."
(not (is? self other))))
)))