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

9
src/monger/db.clj
View file

@ -33,11 +33,6 @@
(defn get-collection-names (defn get-collection-names
"Returns a set containing the names of all collections in this database." "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] ([^DB database]
(into #{} (.getCollectionNames ^DB database))) (set (.getCollectionNames ^DB database))))
)

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

@ -9,34 +9,26 @@
(deftest add-user (deftest test-add-user
(let [username "clojurewerkz/monger!" (let [username "clojurewerkz/monger!"
pwd (.toCharArray "monger!")] pwd (.toCharArray "monger!")]
(monger.db/add-user username pwd) (monger.db/add-user username pwd)
(is (monger.core/authenticate "monger-test" username pwd)))) (is (monger.core/authenticate "monger-test" username pwd))))
(deftest drop-database (deftest test-drop-database
(let [collection "test" (let [collection "test"
_ (mgcol/insert collection { :name "Clojure" }) _ (mgcol/insert collection { :name "Clojure" })
check (mgcol/count collection) check (mgcol/count collection)
_ (monger.db/drop-db) _ (monger.db/drop-db)]
]
(is (= 1 check)) (is (= 1 check))
(is (not (mgcol/exists? collection))) (is (not (mgcol/exists? collection)))
(is (= 0 (mgcol/count collection))) (is (= 0 (mgcol/count collection)))))
)
)
(deftest get-collection-names (deftest test-get-collection-names
(mgcol/insert "test-1" { :name "Clojure" }) (mgcol/insert "test-1" { :name "Clojure" })
(mgcol/insert "test-2" { :name "Clojure" }) (mgcol/insert "test-2" { :name "Clojure" })
(let [collections (monger.db/get-collection-names)] (let [collections (monger.db/get-collection-names)]
(is (.contains collections "test-1")) (is (.contains collections "test-1"))
(is (.contains collections "test-2")) (is (.contains collections "test-2"))))
))