Introduce monger.collection/any?

Useful for detecting duplicate documents and so on

src/monger/collection.clj

@@ -142,7 +142,7 @@
 ;;
 ;; monger.collection/count
 ;;
-(defn ^long count
+(defn count
   "Returns the number of documents in this collection.
 
   Takes optional conditions as an argument.
@@ -150,13 +150,19 @@
       (monger.collection/count collection)
 
       (monger.collection/count collection { :first_name \"Paul\" })"
-  ([^String collection]
+  (^long [^String collection]
          (let [^DBCollection coll (.getCollection monger.core/*mongodb-database* collection)]
            (.count coll)))
-  ([^String collection, ^Map conditions]
+  (^long [^String collection, ^Map conditions]
          (let [^DBCollection coll (.getCollection monger.core/*mongodb-database* collection)]
            (.count coll (to-db-object conditions)))))
 
+(defn any?
+  ([^String collection]
+     (> (count collection) 0))
+  ([^String collection, ^Map conditions]
+     (> (count collection conditions) 0)))
+
 
 ;; monger.collection/update
 

test/monger/test/collection.clj

@@ -79,9 +79,13 @@
                                     { :language "Clojure", :name "incanter" }
                                     { :language "Scala",   :name "akka" }] )
     (is (= 4 (mgcol/count collection)))
+    (is (mgcol/any? collection))
     (is (= 3 (mgcol/count collection { :language "Clojure" })))
+    (is (mgcol/any? collection { :language "Clojure" }))
     (is (= 1 (mgcol/count collection { :language "Scala"   })))
-    (is (= 0 (mgcol/count collection { :language "Python"  })))))
+    (is (mgcol/any? collection { :language "Scala" }))
+    (is (= 0 (mgcol/count collection { :language "Python"  })))
+    (is (not (mgcol/any? collection { :language "Python" })))))
 
 
 (deftest remove-all-documents-from-collection