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

Cosmetics

Browse source
This commit is contained in:
Michael S. Klishin 2012-02-18 15:46:18 +04:00
parent 1494cc5ad4
commit e29655a7fd
2 changed files with 14 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/monger/db.clj
View file

@ -16,7 +16,7 @@
(defn add-user
"Adds a new user for this db"
([^String username, ^chars password]
([^String username, ^chars password]
(.addUser ^DB monger.core/*mongodb-database* username password))
([^DB database ^String username, ^chars password]
(.addUser ^DB database username password)))
@ -24,7 +24,7 @@
(defn drop-db
"Drops the currently set database (via core/set-db) or the specified database."
([]
([]
(.dropDatabase ^DB monger.core/*mongodb-database*))
([^DB database]
(.dropDatabase ^DB database)))
@ -32,12 +32,7 @@
(defn get-collection-names
"Returns a set containing the names of all collections in this database."
([]
(into #{} (.getCollectionNames ^DB monger.core/*mongodb-database*)))
([]
(set (.getCollectionNames ^DB monger.core/*mongodb-database*)))
([^DB database]
(into #{} (.getCollectionNames ^DB database)))
)
(set (.getCollectionNames ^DB database))))

26
test/monger/test/db.clj
View file

@ -1,6 +1,6 @@
(ns monger.test.db
(:require [monger core db]
[monger.test.helper :as helper]
[monger.test.helper :as helper]
[monger.collection :as mgcol])
(:import (com.mongodb Mongo DB))
(:use [clojure.test]))
@ -9,34 +9,26 @@
(deftest add-user
(deftest test-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
(deftest test-drop-database
(let [collection "test"
_ (mgcol/insert collection { :name "Clojure" })
check (mgcol/count collection)
_ (monger.db/drop-db)
]
_ (monger.db/drop-db)]
(is (= 1 check))
(is (not (mgcol/exists? collection)))
(is (= 0 (mgcol/count collection)))
)
)
(is (= 0 (mgcol/count collection)))))
(deftest get-collection-names
(mgcol/insert "test-1" { :name "Clojure" })
(mgcol/insert "test-2" { :name "Clojure" })
(deftest test-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"))
))
(is (.contains collections "test-2"))))