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

Implement monger.collection/create

Browse source
This commit is contained in:
Michael S. Klishin 2011-09-10 08:19:19 +04:00
parent 24b2dbe516
commit 1f091ab735
2 changed files with 17 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/monger/collection.clj
View file

@ -205,10 +205,19 @@
(.dropIndexes ^DBCollection (.getCollection monger.core/*mongodb-database* collection)))
;;
;; monger.collection/exists?, monger.collection/create, monger.collection/drop
;;
(defn exists?
[^String collection]
(.collectionExists monger.core/*mongodb-database* collection))
(defn create
[^String collection, ^Map options]
(.createCollection monger.core/*mongodb-database* collection (to-db-object options)))
(defn drop
[^String collection]
(let [^DBCollection coll (.getCollection monger.core/*mongodb-database* collection)]

10
test/monger/test/collection.clj
View file

@ -384,7 +384,7 @@
;;
;; exists?, drop
;; exists?, drop, create
;;
(deftest checking-for-collection-existence-when-it-does-not-exist
@ -397,4 +397,10 @@
(monger.collection/drop collection)
(monger.collection/insert-batch collection [{ :name "widget1" }
{ :name "widget2" }])
(is (monger.collection/exists? collection))))
(is (monger.collection/exists? collection))
(monger.collection/drop collection)
(is (false? (monger.collection/exists? collection)))
(monger.collection/create "widgets" { :capped true :max 100 })
(is (monger.collection/exists? collection))
(monger.collection/drop collection)
))