From 571fe47d82ee68b2bc203842195acb2758b63b60 Mon Sep 17 00:00:00 2001 From: Victor Denisov Date: Mon, 29 May 2017 16:34:35 -0700 Subject: [PATCH] Test for non multi update --- test/QuerySpec.hs | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/test/QuerySpec.hs b/test/QuerySpec.hs index 3dfb8c6..08a33fa 100644 --- a/test/QuerySpec.hs +++ b/test/QuerySpec.hs @@ -329,6 +329,14 @@ spec = around withCleanDatabase $ do when (wireVersion > 1) $ do res <- db $ updateMany "testCollection" [(["myField" =: "myValue"], ["$set" =: ["myfield" =: "newValue"]], [Upsert])] (length $ upserted res) `shouldBe` 1 + it "updates only one doc without multi update" $ do + wireVersion <- getWireVersion + when (wireVersion > 1) $ do + _ <- db $ insertMany "testCollection" [["myField" =: "myValue"], ["myField2" =: "myValue2"]] + _ <- db $ insertMany "testCollection" [["myField" =: "myValue"], ["myField2" =: "myValue2"]] + res <- db $ updateMany "testCollection" [(["myField" =: "myValue"], ["$set" =: ["myField" =: "newValue"]], [])] + nMatched res `shouldBe` 1 + nModified res `shouldBe` (Just 1) describe "delete" $ do it "actually deletes something" $ do