Implemented clean-db! function.

project.clj

@@ -1,6 +1,6 @@
-(defproject judgr/mongodb "0.1.2"
+(defproject judgr/mongodb "0.1.3"
   :description "MongoDB support for Judgr."
   :url "http://github.com/danielfm/judgr-mongodb"
-  :dependencies [[judgr "0.2.0"]
+  :dependencies [[judgr "0.2.1"]
                  [congomongo "0.1.7"]]
   :dev-dependencies [[lein-clojars "0.7.0"]])

src/judgr/mongo/db.clj

@@ -50,6 +50,11 @@
                                  (str (name :classes) "." (name class)) 1}})
         (.get-feature db feature))))
 
+  (clean-db! [db]
+    (mongodb/with-mongo conn
+      (mongodb/destroy! :items {})
+      (mongodb/destroy! :features {})))
+
   (get-feature [db feature]
     (mongodb/with-mongo conn
       (let [feature (mongodb/fetch-one :features

test/judgr/mongo/test/db.clj

@@ -12,21 +12,14 @@
                    [:database :type] :mongo
                    [:database :mongo :database] "judgr-test"))
 
-(defn- clean-db!
-  "Removes all documents from the database."
-  [db]
-  (mongodb/with-mongo (.get-connection db)
-    (mongodb/destroy! :items {})
-    (mongodb/destroy! :features {})))
-
 (def-fixture empty-db []
   (let [db (db-from new-settings)]
-    (clean-db! db)
+    (.clean-db! db)
     (test-body)))
 
 (def-fixture basic-db []
   (let [db (db-from new-settings)]
-    (clean-db! db)
+    (.clean-db! db)
     (.add-item! db "Some message" :positive)
     (.add-item! db "Another message" :positive)
     (.add-feature! db "Some message" "message" :positive)