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

One more test case

Browse source
This commit is contained in:
Michael S. Klishin 2012-05-22 18:54:53 +04:00
parent 0db4bc6e11
commit ca67d9f4cb
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
test/monger/test/atomic_modifiers_test.clj
View file

@ -320,12 +320,20 @@
(deftest find-and-modify-upsert-a-document (deftest find-and-modify-upsert-a-document
(testing "case 1"
(let [coll "docs" (let [coll "docs"
oid (ObjectId.) oid (ObjectId.)
doc {:_id oid :name "Sophie Bangs" :level 42}] doc {:_id oid :name "Sophie Bangs" :level 42}]
(let [res (mgcol/find-and-modify coll doc doc :upsert true)] (let [res (mgcol/find-and-modify coll doc doc :upsert true)]
(is (empty? res)) (is (empty? res))
(is (select-keys (mgcol/find-map-by-id coll oid) [:name :level]) (dissoc doc :_id))))) (is (select-keys (mgcol/find-map-by-id coll oid) [:name :level]) (dissoc doc :_id)))))
(testing "case 2"
(let [coll "docs"
query {:name "Sophie Bangs"}
doc (merge query {:level 42})]
(let [res (mgcol/find-and-modify coll query doc :upsert true :return-new true)]
(is (:_id res))
(is (select-keys (mgcol/find-map-by-id coll (:_id res)) [:name :level]) doc)))))
(deftest find-and-modify-after-sort (deftest find-and-modify-after-sort