From 3f23fb8c846acfd7cf04481f12839469c63a1148 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 18 Mar 2021 16:27:04 -0400
Subject: Updates for Scheme compiler.

---
 stdlib/source/test/lux.lux | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/test')

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))))
         )))
-- 
cgit v1.2.3