From 3dd594999a844f8ba531b36f0c1f046d40b7ea9b Mon Sep 17 00:00:00 2001 From: Fujimura Daisuke Date: Tue, 19 Aug 2014 21:29:18 +0800 Subject: [PATCH] Rename `fakeDB` to `db` --- test/QuerySpec.hs | 62 +++++++++++++++++++++++------------------------ 1 file changed, 31 insertions(+), 31 deletions(-) diff --git a/test/QuerySpec.hs b/test/QuerySpec.hs index eb38a9f..f63ed30 100644 --- a/test/QuerySpec.hs +++ b/test/QuerySpec.hs @@ -8,8 +8,8 @@ import Control.Exception testDBName :: Database testDBName = "mongodb-haskell-test" -fakeDB :: Action IO a -> IO a -fakeDB action = do +db :: Action IO a -> IO a +db action = do pipe <- connect (host "127.0.0.1") result <- access pipe master testDBName action close pipe @@ -18,41 +18,41 @@ fakeDB action = do withCleanDatabase :: IO a -> IO () withCleanDatabase action = dropDB >> action >> dropDB >> return () where - dropDB = fakeDB $ dropDatabase testDBName + dropDB = db $ dropDatabase testDBName spec :: Spec spec = around withCleanDatabase $ do describe "useDb" $ do it "changes the db" $ do let anotherDBName = "another-mongodb-haskell-test" - fakeDB thisDatabase `shouldReturn` testDBName - fakeDB (useDb anotherDBName thisDatabase) `shouldReturn` anotherDBName + db thisDatabase `shouldReturn` testDBName + db (useDb anotherDBName thisDatabase) `shouldReturn` anotherDBName describe "insert" $ do it "inserts a document to the collection and returns its _id" $ do - _id <- fakeDB $ insert "team" ["name" =: "Yankees", "league" =: "American"] - result <- fakeDB $ rest =<< find (select [] "team") + _id <- db $ insert "team" ["name" =: "Yankees", "league" =: "American"] + result <- db $ rest =<< find (select [] "team") result `shouldBe` [["_id" =: _id, "name" =: "Yankees", "league" =: "American"]] describe "insert_" $ do it "inserts a document to the collection and doesn't return _id" $ do - _id <- fakeDB $ insert_ "team" ["name" =: "Yankees", "league" =: "American"] - fakeDB (count $ select ["name" =: "Yankees", "league" =: "American"] "team") `shouldReturn` 1 + _id <- db $ insert_ "team" ["name" =: "Yankees", "league" =: "American"] + db (count $ select ["name" =: "Yankees", "league" =: "American"] "team") `shouldReturn` 1 _id `shouldBe` () describe "insertMany" $ do it "inserts documents to the collection and returns their _ids" $ do - (_id1:_id2:_) <- fakeDB $ insertMany "team" [ ["name" =: "Yankees", "league" =: "American"] + (_id1:_id2:_) <- db $ insertMany "team" [ ["name" =: "Yankees", "league" =: "American"] , ["name" =: "Dodgers", "league" =: "American"] ] - result <- fakeDB $ rest =<< find (select [] "team") + result <- db $ rest =<< find (select [] "team") result `shouldBe` [ ["_id" =: _id1, "name" =: "Yankees", "league" =: "American"] , ["_id" =: _id2, "name" =: "Dodgers", "league" =: "American"] ] context "Insert a document with duplicating key" $ do let insertDuplicatingDocument = do - _id <- fakeDB $ insert "team" ["name" =: "Dodgers", "league" =: "American"] - _ <- fakeDB $ insertMany "team" [ ["name" =: "Yankees", "league" =: "American"] + _id <- db $ insert "team" ["name" =: "Dodgers", "league" =: "American"] + _ <- db $ insertMany "team" [ ["name" =: "Yankees", "league" =: "American"] -- Try to insert document with -- duplicate key , ["name" =: "Dodgers", "league" =: "American", "_id" =: _id] @@ -62,10 +62,10 @@ spec = around withCleanDatabase $ do before (insertDuplicatingDocument `catch` \(_ :: Failure) -> return ()) $ do it "inserts documents before it" $ - fakeDB ( 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" $ - fakeDB ( count $ select ["name" =: "Indians", "league" =: "American"] "team") `shouldReturn` 0 + db ( count $ select ["name" =: "Indians", "league" =: "American"] "team") `shouldReturn` 0 it "raises exception" $ insertDuplicatingDocument `shouldThrow` anyException @@ -73,15 +73,15 @@ spec = around withCleanDatabase $ do describe "insertMany_" $ do it "inserts documents to the collection and returns nothing" $ do - ids <- fakeDB $ insertMany_ "team" [ ["name" =: "Yankees", "league" =: "American"] + ids <- db $ insertMany_ "team" [ ["name" =: "Yankees", "league" =: "American"] , ["name" =: "Dodgers", "league" =: "American"] ] ids `shouldBe` () context "Insert a document with duplicating key" $ do let insertDuplicatingDocument = do - _id <- fakeDB $ insert "team" ["name" =: "Dodgers", "league" =: "American"] - _ <- fakeDB $ insertMany_ "team" [ ["name" =: "Yankees", "league" =: "American"] + _id <- db $ insert "team" ["name" =: "Dodgers", "league" =: "American"] + _ <- db $ insertMany_ "team" [ ["name" =: "Yankees", "league" =: "American"] -- Try to insert document with -- duplicate key , ["name" =: "Dodgers", "league" =: "American", "_id" =: _id] @@ -91,26 +91,26 @@ spec = around withCleanDatabase $ do before (insertDuplicatingDocument `catch` \(_ :: Failure) -> return ()) $ do it "inserts documents before it" $ - fakeDB (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" $ - fakeDB (count $ select ["name" =: "Indians", "league" =: "American"] "team") `shouldReturn` 0 + db (count $ select ["name" =: "Indians", "league" =: "American"] "team") `shouldReturn` 0 it "raises exception" $ insertDuplicatingDocument `shouldThrow` anyException describe "insertAll" $ do it "inserts documents to the collection and returns their _ids" $ do - (_id1:_id2:_) <- fakeDB $ insertAll "team" [ ["name" =: "Yankees", "league" =: "American"] + (_id1:_id2:_) <- db $ insertAll "team" [ ["name" =: "Yankees", "league" =: "American"] , ["name" =: "Dodgers", "league" =: "American"] ] - result <- fakeDB $ rest =<< find (select [] "team") + result <- db $ rest =<< find (select [] "team") result `shouldBe` [["_id" =: _id1, "name" =: "Yankees", "league" =: "American"] ,["_id" =: _id2, "name" =: "Dodgers", "league" =: "American"] ] context "Insert a document with duplicating key" $ do let insertDuplicatingDocument = do - _id <- fakeDB $ insert "team" ["name" =: "Dodgers", "league" =: "American"] - _ <- fakeDB $ insertAll "team" [ ["name" =: "Yankees", "league" =: "American"] + _id <- db $ insert "team" ["name" =: "Dodgers", "league" =: "American"] + _ <- db $ insertAll "team" [ ["name" =: "Yankees", "league" =: "American"] -- Try to insert document with -- duplicate key , ["name" =: "Dodgers", "league" =: "American", "_id" =: _id] @@ -120,23 +120,23 @@ spec = around withCleanDatabase $ do before (insertDuplicatingDocument `catch` \(_ :: Failure) -> return ()) $ do it "inserts all documents which can be inserted" $ do - fakeDB (count $ select ["name" =: "Yankees", "league" =: "American"] "team") `shouldReturn` 1 - fakeDB (count $ select ["name" =: "Indians", "league" =: "American"] "team") `shouldReturn` 1 + db (count $ select ["name" =: "Yankees", "league" =: "American"] "team") `shouldReturn` 1 + db (count $ select ["name" =: "Indians", "league" =: "American"] "team") `shouldReturn` 1 it "raises exception" $ insertDuplicatingDocument `shouldThrow` anyException describe "insertAll_" $ do it "inserts documents to the collection and returns their _ids" $ do - ids <- fakeDB $ insertAll_ "team" [ ["name" =: "Yankees", "league" =: "American"] + ids <- db $ insertAll_ "team" [ ["name" =: "Yankees", "league" =: "American"] , ["name" =: "Dodgers", "league" =: "American"] ] ids `shouldBe` () context "Insert a document with duplicating key" $ do let insertDuplicatingDocument = do - _id <- fakeDB $ insert "team" ["name" =: "Dodgers", "league" =: "American"] - _ <- fakeDB $ insertAll_ "team" [ ["name" =: "Yankees", "league" =: "American"] + _id <- db $ insert "team" ["name" =: "Dodgers", "league" =: "American"] + _ <- db $ insertAll_ "team" [ ["name" =: "Yankees", "league" =: "American"] -- Try to insert document with -- duplicate key , ["name" =: "Dodgers", "league" =: "American", "_id" =: _id] @@ -146,8 +146,8 @@ spec = around withCleanDatabase $ do before (insertDuplicatingDocument `catch` \(_ :: Failure) -> return ()) $ do it "inserts all documents which can be inserted" $ do - fakeDB (count $ select ["name" =: "Yankees", "league" =: "American"] "team") `shouldReturn` 1 - fakeDB (count $ select ["name" =: "Indians", "league" =: "American"] "team") `shouldReturn` 1 + db (count $ select ["name" =: "Yankees", "league" =: "American"] "team") `shouldReturn` 1 + db (count $ select ["name" =: "Indians", "league" =: "American"] "team") `shouldReturn` 1 it "raises exception" $ insertDuplicatingDocument `shouldThrow` anyException