From 36b89b978e8bc6f084e67a11207488ea2fe25c72 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 4 Oct 2017 05:15:18 -0400
Subject: - Fixed the tests for lux/math/random.

---
 stdlib/source/lux/math/random.lux    | 9 ++++-----
 stdlib/test/test/lux/math/random.lux | 4 ++--
 2 files changed, 6 insertions(+), 7 deletions(-)

(limited to 'stdlib')

diff --git a/stdlib/source/lux/math/random.lux b/stdlib/source/lux/math/random.lux
index 3225f1d6e..c922cee21 100644
--- a/stdlib/source/lux/math/random.lux
+++ b/stdlib/source/lux/math/random.lux
@@ -5,14 +5,13 @@
                 ["M" monad #+ do Monad]
                 hash)
        (data [bit]
-             [text "Text/" Monoid<Text>]
-             text/format
+             [text "text/" Monoid<Text>]
              [product]
              [maybe]
              [number]
              (number ["r" ratio]
                      ["c" complex])
-             (coll [list "List/" Fold<List>]
+             (coll [list "list/" Fold<List>]
                    ["a" array]
                    ["D" dict]
                    ["Q" queue]
@@ -106,7 +105,7 @@
     (do Monad<Random>
       [x char-gen
        xs (text' char-gen (n.dec size))]
-      (wrap (Text/compose (text;from-code x) xs)))))
+      (wrap (text/compose (text;from-code x) xs)))))
 
 (def: #export (text size)
   (-> Nat (Random Text))
@@ -203,7 +202,7 @@
 
   [array a;Array  a;from-list]
   [queue Q;Queue  Q;from-list]
-  [stack ST;Stack (List/fold ST;push ST;empty)]
+  [stack ST;Stack (list/fold ST;push ST;empty)]
   )
 
 (def: #export (set Hash<a> size value-gen)
diff --git a/stdlib/test/test/lux/math/random.lux b/stdlib/test/test/lux/math/random.lux
index ae33ab98f..003a3a803 100644
--- a/stdlib/test/test/lux/math/random.lux
+++ b/stdlib/test/test/lux/math/random.lux
@@ -3,6 +3,7 @@
   (lux [io]
        (control [monad #+ do Monad])
        (data [number]
+             text/format
              (coll [list]
                    [vector]
                    [array]
@@ -14,8 +15,7 @@
   lux/test)
 
 (context: "Random."
-  #seed +1504643924987
-  [size (|> r;nat (:: @ map (n.% +100)))
+  [size (|> r;nat (:: @ map (|>. (n.% +100) (n.max +10))))
    _list (r;list size r;nat)
    _vector (r;vector size r;nat)
    _array (r;array size r;nat)
-- 
cgit v1.2.3