From 9bd0dff6eeb91409e4f161d575f9c1e7f6e14a06 Mon Sep 17 00:00:00 2001 From: Victor Denisov Date: Mon, 29 May 2017 16:11:25 -0700 Subject: [PATCH] Add unit test for upserted --- test/QuerySpec.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/test/QuerySpec.hs b/test/QuerySpec.hs index b2b1426..3dfb8c6 100644 --- a/test/QuerySpec.hs +++ b/test/QuerySpec.hs @@ -324,6 +324,11 @@ spec = around withCleanDatabase $ do res <- db $ updateMany "testCollection" [(["myField" =: "myValue"], ["$set" =: ["myField" =: "newValue"]], [MultiUpdate])] nMatched res `shouldBe` 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 it "actually deletes something" $ do