Excised contribution relevant to this: https://github.com/LuxLang/lux/pull/35

1 files changed, 1 insertions, 10 deletions

diff --git a/stdlib/test/test/lux/math/random.lux b/stdlib/test/test/lux/math/random.lux
index f3f118c90..a7f126ef3 100644
--- a/stdlib/test/test/lux/math/random.lux
+++ b/stdlib/test/test/lux/math/random.lux
@@ -28,11 +28,7 @@
          _set (r.set number.Hash<Nat> size r.nat)
          _dict (r.dictionary number.Hash<Nat> size r.nat r.nat)
          top r.nat
-         filtered (|> r.nat (r.filter (n/<= top)))
-         shuffle-seed r.nat
-         #let [sorted (|> _row row.to-list (list.sort n/<))
-               shuffled (|> sorted row.from-list (r.shuffle shuffle-seed))
-               re-sorted (|> shuffled row.to-list (list.sort n/<))]]
+         filtered (|> r.nat (r.filter (n/<= top)))]
         ($_ seq
             (test "Can produce lists."
                   (n/= size (list.size _list)))
@@ -50,9 +46,4 @@
                   (n/= size (dict.size _dict)))
             (test "Can filter values."
                   (n/<= top filtered))
-            (test "Can shuffle rows."
-                  (let [(^open "v/.") (row.Equivalence<Row> number.Equivalence<Nat>)
-                        sorted (row.from-list sorted)]
-                    (and (not (v/= sorted shuffled))
-                         (v/= sorted (row.from-list re-sorted)))))
             ))))