Fix bugs in tests (#67)

clj-commons · Dec 17, 2021 · 4f21afe · 4f21afe
1 parent cdf54bb
commit 4f21afe
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/test/flatland/ordered/map_test.cljc b/test/flatland/ordered/map_test.cljc
@@ -98,13 +98,14 @@
     (testing "Large number of keys still sorted"
       (let [kvs (for [n (range 5000)]
                   [(str n) n])
+            expected (into values kvs)
             ordered (into m kvs)]
-        (= (seq kvs) (seq ordered))))))
+        (is (= (seq expected) (seq ordered)))))))
 
 (deftest reversing
   (let [source (vec (for [n (range 10)]
                       [n n]))
-        m (into (sorted-map) source)]
+        m (into (ordered-map) source)]
     (is (= (rseq m) (rseq source)))))
 
 (deftest map-features