diff options
Diffstat (limited to 'src/clojure/contrib/test_clojure')
| -rw-r--r-- | src/clojure/contrib/test_clojure/data_structures.clj | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/clojure/contrib/test_clojure/data_structures.clj b/src/clojure/contrib/test_clojure/data_structures.clj index 16cae04a..5b4c4183 100644 --- a/src/clojure/contrib/test_clojure/data_structures.clj +++ b/src/clojure/contrib/test_clojure/data_structures.clj @@ -326,6 +326,22 @@ ;; *** Maps (IPersistentMap) *** +(deftest test-find + (are (= _1 _2) + (find {} :a) nil + + (find {:a 1} :a) [:a 1] + (find {:a 1} :b) nil + + (find {:a 1 :b 2} :a) [:a 1] + (find {:a 1 :b 2} :b) [:b 2] + (find {:a 1 :b 2} :c) nil + + (find {} nil) nil + (find {:a 1} nil) nil + (find {:a 1 :b 2} nil) nil )) + + (deftest test-keys (are (= _1 _2) ; other than map data structures (keys ()) nil |