test data structures: find

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