add-user and test, db ns

src/monger/db.clj

@@ -13,6 +13,15 @@
   (:require [monger core]))
 
 
+
+(defn add-user
+  "Adds a new user for this db"
+  ([^String username, ^chars password] 
+     (.addUser ^DB monger.core/*mongodb-database* username password))
+  ([^DB database ^String username, ^chars password]
+     (.addUser ^DB database username password)))
+
+
 (defn drop-db
   "Drops the specified database."
   ([] 

test/monger/test/db.clj

@@ -8,13 +8,12 @@
 (helper/connect!)
 
 
-(deftest get-collection-names    
-    (mgcol/insert "test-1" { :name "Clojure" })
-    (mgcol/insert "test-2" { :name "Clojure" })
-  (let [collections (monger.db/get-collection-names)]
-    (is (.contains collections "test-1"))
-    (is (.contains collections "test-2"))
-  ))    
+
+(deftest add-user  
+  (let [username "clojurewerkz/monger!"
+        pwd      (.toCharArray "monger!")]
+    (monger.db/add-user username pwd)
+    (is (monger.core/authenticate "monger-test" username pwd))))
 
 
 (deftest drop-database     
@@ -30,3 +29,14 @@
 )    
 
 
+(deftest get-collection-names    
+    (mgcol/insert "test-1" { :name "Clojure" })
+    (mgcol/insert "test-2" { :name "Clojure" })
+  (let [collections (monger.db/get-collection-names)]
+    (is (.contains collections "test-1"))
+    (is (.contains collections "test-2"))
+  ))    
+
+
+
+