Introduce monger.collection/count

src/monger/collection.clj

@@ -0,0 +1,11 @@
+(ns monger.collection
+  (:import (com.mongodb Mongo DB))
+  )
+
+;;
+;; API
+;;
+
+(defn ^long count
+  [^DB db, ^String collection]
+  (.count (.getCollection db collection)))

test/monger/test/collection.clj

@@ -0,0 +1,9 @@
+(ns monger.test.collection
+  (:require [monger core collection])
+  (:use [clojure.test]))
+
+(deftest get-collection-size
+  (let [connection (monger.core/connect)
+        db         (monger.core/get-db connection "monger-test")]
+    (is 0 (monger.collection/count db "things"))))
+