Merge pull request #12 from tobyhede/63870b1136e63865ba349faa159d473b3cab79a7

new core/get-db-names

src/monger/core.clj

@@ -52,6 +52,15 @@
   ([{ :keys [host port] :or { host *mongodb-host*, port *mongodb-port* }}]
      (Mongo. ^String host ^Long port)))
 
+          
+
+(defn ^DB get-db-names
+  "Gets a list of all database names present on the server"
+  ([]
+     (list (.getDatabaseNames *mongodb-connection*)))
+  ([^Mongo connection]
+     (list (.getDatabaseNames connection))))
+
 
 (defn ^DB get-db
   "Get database reference by name.

test/monger/test/core.clj

@@ -28,6 +28,13 @@
     (is (instance? com.mongodb.DB db))))
 
 
+(deftest test-get-db-names
+  (let [dbs (monger.core/get-db-names)]  
+    (is (not (empty? dbs)))
+    (is (some #{"monger-test"} dbs))
+  )
+)
+
 ;; (deftest get-database-with-valid-credentials
 ;;   (let [connection (monger.core/connect)
 ;;         db         (monger.core/get-db connection "monger-test" "monger" "test_password")]