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

Implement monger.collection/rename

Browse source
This commit is contained in:
Michael S. Klishin 2011-09-10 08:46:17 +04:00
parent e681bf1a1c
commit fadf939cd5
2 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/monger/collection.clj
View file

@ -206,7 +206,7 @@
;; ;;
;; monger.collection/exists?, monger.collection/create, monger.collection/drop ;; monger.collection/exists?, /create, /drop, /rename
;; ;;
@ -223,6 +223,13 @@
(let [^DBCollection coll (.getCollection monger.core/*mongodb-database* collection)] (let [^DBCollection coll (.getCollection monger.core/*mongodb-database* collection)]
(.drop coll))) (.drop coll)))
(defn rename
([^String from, ^String to]
(let [^DBCollection coll (.getCollection monger.core/*mongodb-database* from)]
(.rename coll to)))
([^String from, ^String to, ^Boolean drop-target]
(let [^DBCollection coll (.getCollection monger.core/*mongodb-database* from)]
(.rename coll to drop-target))))
;; ;;
;; Implementation ;; Implementation

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

@ -402,5 +402,7 @@
(is (false? (monger.collection/exists? collection))) (is (false? (monger.collection/exists? collection)))
(monger.collection/create "widgets" { :capped true :max 100 }) (monger.collection/create "widgets" { :capped true :max 100 })
(is (monger.collection/exists? collection)) (is (monger.collection/exists? collection))
(monger.collection/drop collection) (monger.collection/rename collection "gadgets")
)) (is (not (monger.collection/exists? collection)))
(is (monger.collection/exists? "gadgets"))
(monger.collection/drop "gadgets")))