diff options
| author | Sean <devlinsf@devlinsolutions.com> | 2009-12-19 01:17:24 -0500 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2009-12-23 08:56:21 -0500 |
| commit | 855f394d6895cebfcee307dbccea9bdeffe792f5 (patch) | |
| tree | 1c0fbc4b41dc62f2452a831788a552d373015fc9 | |
| parent | a3a1b3aa3523608f0b69e0d8655d519767246c79 (diff) | |
Added test-empty-sorted to test_clojure/sequences.clj Refs #128
Signed-off-by: Rich Hickey <richhickey@gmail.com>
| -rw-r--r-- | test/clojure/test_clojure/sequences.clj | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/clojure/test_clojure/sequences.clj b/test/clojure/test_clojure/sequences.clj index 3ea03252..6aa3c695 100644 --- 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 |