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

Minor refactor

Browse source 
Use `shouldReturn`
This commit is contained in:
Fujimura Daisuke 2014-08-19 12:01:05 +08:00
parent 70e8cbc9c2
commit c6d6f8c71a
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
test/QuerySpec.hs
View file

@ -24,10 +24,9 @@ spec :: Spec
spec = around withCleanDatabase $ do
describe "useDb" $ do
it "changes the db" $ do
db1 <- fakeDB thisDatabase
db1 `shouldBe` testDBName
db2 <- fakeDB $ useDb "another-mongodb-haskell-test" thisDatabase
db2 `shouldBe` "another-mongodb-haskell-test"
let anotherDBName = "another-mongodb-haskell-test"
fakeDB thisDatabase `shouldReturn` testDBName
fakeDB (useDb anotherDBName thisDatabase) `shouldReturn` anotherDBName
describe "insert" $ do
it "inserts a document to the collection and returns its _id" $ do