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

Minor code format fix

Browse source
This commit is contained in:
Fujimura Daisuke 2014-08-19 21:30:07 +08:00
parent 3dd594999a
commit 7354bf0ada
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test/QuerySpec.hs
View file

@ -62,10 +62,10 @@ spec = around withCleanDatabase $ do
before (insertDuplicatingDocument `catch` \(_ :: Failure) -> return ()) $ do before (insertDuplicatingDocument `catch` \(_ :: Failure) -> return ()) $ do
it "inserts documents before it" $ it "inserts documents before it" $
db ( count $ select ["name" =: "Yankees", "league" =: "American"] "team") `shouldReturn` 1 db (count $ select ["name" =: "Yankees", "league" =: "American"] "team") `shouldReturn` 1
it "doesn't insert documents after it" $ it "doesn't insert documents after it" $
db ( count $ select ["name" =: "Indians", "league" =: "American"] "team") `shouldReturn` 0 db (count $ select ["name" =: "Indians", "league" =: "American"] "team") `shouldReturn` 0
it "raises exception" $ it "raises exception" $
insertDuplicatingDocument `shouldThrow` anyException insertDuplicatingDocument `shouldThrow` anyException