diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux.lux | 10 |
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)))) ))) |