Added test-empty-sorted to test_clojure/sequences.clj Refs #128

Sean · richhickey · commit 855f394d6895 · 2009-12-23T08:56:21.000-05:00
Signed-off-by: Rich Hickey &lt;richhickey@gmail.com&gt;
diff --git a/test/clojure/test_clojure/sequences.clj b/test/clojure/test_clojure/sequences.clj
@@ -146,6 +146,18 @@
       1.2 nil
       "abc" nil ))
 
+;Tests that the comparator is preservered
+;The first element should be the same in each set if preserved.
+(deftest test-empty-sorted
+  (let [inv-compare (comp - compare)]
+    (are [x y] (= (first (into (empty x) x)) 
+		  (first y))
+	 (sorted-set 1 2 3) (sorted-set 1 2 3)
+	 (sorted-set-by inv-compare 1 2 3) (sorted-set-by inv-compare 1 2 3)
+
+	 (sorted-map 1 :a 2 :b 3 :c) (sorted-map 1 :a 2 :b 3 :c)
+	 (sorted-map-by inv-compare 1 :a 2 :b 3 :c) (sorted-map-by inv-compare 1 :a 2 :b 3 :c))))
+
 
 (deftest test-not-empty
   ; empty coll/seq => nil
