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

Ditto for monger.collection/save

Browse source
This commit is contained in:
Michael S. Klishin 2012-01-29 06:58:02 +04:00
parent afa516fff6
commit b76cffcd1a
2 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/monger/collection.clj
View file

@ -290,11 +290,14 @@
(monger.collection/save \"people\" { :first_name \"Ian\" :last_name \"Gillan\" }) (monger.collection/save \"people\" { :first_name \"Ian\" :last_name \"Gillan\" })
" "
([^String collection, ^Map document] ([^String collection ^Map document]
(let [^DBCollection coll (.getCollection monger.core/*mongodb-database* collection)] (let [^DBCollection coll (.getCollection monger.core/*mongodb-database* collection)]
(.save coll (to-db-object document) monger.core/*mongodb-write-concern*))) (.save coll (to-db-object document) monger.core/*mongodb-write-concern*)))
([^String collection, ^Map document, ^WriteConcern write-concern] ([^String collection ^Map document ^WriteConcern write-concern]
(let [^DBCollection coll (.getCollection monger.core/*mongodb-database* collection)] (let [^DBCollection coll (.getCollection monger.core/*mongodb-database* collection)]
(.save coll document write-concern)))
([^DB db ^String collection ^Map document ^WriteConcern write-concern]
(let [^DBCollection coll (.getCollection db collection)]
(.save coll document write-concern)))) (.save coll document write-concern))))

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

@ -381,7 +381,7 @@
(let [collection "people" (let [collection "people"
doc (mgcnv/to-db-object { :name "Joe", :age 30 })] doc (mgcnv/to-db-object { :name "Joe", :age 30 })]
(is (nil? (monger.util/get-id doc))) (is (nil? (monger.util/get-id doc)))
(mgcol/save "people" doc) (mgcol/save monger.core/*mongodb-database* "people" doc WriteConcern/SAFE)
(is (not (nil? (monger.util/get-id doc)))))) (is (not (nil? (monger.util/get-id doc))))))