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

Fix monger.util/get-id for persistent maps with string keys

Browse source
This commit is contained in:
Michael S. Klishin 2011-11-29 15:44:55 +04:00
parent c8fe274329
commit 8127d26442
2 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/monger/util.clj
View file

@ -41,4 +41,4 @@
IPersistentMap IPersistentMap
(get-id (get-id
[^IPersistentMap object] [^IPersistentMap object]
(or (:_id object) ("_id" object)))) (or (:_id object) (object "_id"))))

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

@ -46,6 +46,13 @@
(mgcol/insert "people" doc) (mgcol/insert "people" doc)
(is (not (nil? (monger.util/get-id doc)))))) (is (not (nil? (monger.util/get-id doc))))))
(deftest insert-a-map-with-id-and-with-default-write-concern
(let [collection "people"
id (ObjectId.)
doc { :name "Joe", :age 30 "_id" id }
result (mgcol/insert "people" doc)]
(is (= id (monger.util/get-id doc)))))
;; ;;