Vergara_Tech/mongodb
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add unit test for upserted

Browse source
This commit is contained in:
Victor Denisov 2017-05-29 16:11:25 -07:00
parent a1e19379f6
commit 9bd0dff6ee
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
test/QuerySpec.hs
View file

@ -324,6 +324,11 @@ spec = around withCleanDatabase $ do
res <- db $ updateMany "testCollection" [(["myField" =: "myValue"], ["$set" =: ["myField" =: "newValue"]], [MultiUpdate])] res <- db $ updateMany "testCollection" [(["myField" =: "myValue"], ["$set" =: ["myField" =: "newValue"]], [MultiUpdate])]
nMatched res `shouldBe` 2 nMatched res `shouldBe` 2
nModified res `shouldBe` (Just 2) nModified res `shouldBe` (Just 2)
it "returns correct number of upserted" $ do
wireVersion <- getWireVersion
when (wireVersion > 1) $ do
res <- db $ updateMany "testCollection" [(["myField" =: "myValue"], ["$set" =: ["myfield" =: "newValue"]], [Upsert])]
(length $ upserted res) `shouldBe` 1
describe "delete" $ do describe "delete" $ do
it "actually deletes something" $ do it "actually deletes something" $ do