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

Fix tests

Browse source
This commit is contained in:
Victor Denisov 2016-11-20 13:55:40 -08:00
parent a828806940
commit 139a17248f
2 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Database/MongoDB/Query.hs
View file

@ -449,10 +449,11 @@ insertCommandDocument opts col docs writeConcern =
]
takeRightsUpToLeft :: [Either a b] -> [b]
takeRightsUpToLeft l = go l []
takeRightsUpToLeft l = reverse $ go l []
where
go [] !res = res
go ((Right x):xs) !res = go xs (x:res)
go ((Left x):xs) !res = res
go ((Left _):_) !res = res
insert' :: (MonadIO m)
=> [InsertOption] -> Collection -> [Document] -> Action m [Value]
@ -479,6 +480,10 @@ insert' opts col docs = do
else rights preChunks
chunkResults <- forM chunks (insertBlock opts col)
let lchunks = lefts preChunks
when ((not $ null lchunks) && ordered) $ do
liftIO $ throwIO $ head lchunks
return $ concat chunkResults
insertBlock :: (MonadIO m)

4
test/QuerySpec.hs
View file

@ -110,8 +110,8 @@ spec = around withCleanDatabase $ do
describe "insertAll" $ do
it "inserts documents to the collection and returns their _ids" $ do
(_id1:_id2:_) <- db $ insertAll "team" [ ["name" =: "Yankees", "league" =: "American"]
, ["name" =: "Dodgers", "league" =: "American"]
]
, ["name" =: "Dodgers", "league" =: "American"]
]
result <- db $ rest =<< find (select [] "team")
result `shouldBe` [["_id" =: _id1, "name" =: "Yankees", "league" =: "American"]
,["_id" =: _id2, "name" =: "Dodgers", "league" =: "American"]