luciano/monger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add get-db-names to core

Browse source
This commit is contained in:
Toby Hede 2012-02-19 19:44:07 +11:00
parent 6c1dcdcc89
commit fa624c4db4
2 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/monger/core.clj
View file

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

5
test/monger/test/core.clj
View file

@ -28,6 +28,11 @@
(is (instance? com.mongodb.DB db)))) (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 ;; (deftest get-database-with-valid-credentials
;; (let [connection (monger.core/connect) ;; (let [connection (monger.core/connect)
;; db (monger.core/get-db connection "monger-test" "monger" "test_password")] ;; db (monger.core/get-db connection "monger-test" "monger" "test_password")]