eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Clean up the comments

Browse source
This commit is contained in:
Erik Aker 2018-10-13 06:35:56 -07:00
parent 18456baac5
commit 0d0fd0de82
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
doc/cookbook/testing/Testing.lhs
View file

@ -267,10 +267,12 @@ esTestApp = serve (Proxy :: Proxy SearchAPI) esTestServer
esTestServer :: Server SearchAPI esTestServer :: Server SearchAPI
esTestServer = getESDocument esTestServer = getESDocument
-- This is the *mock* handler we're going to use. We create it
-- here specifically to trigger different behavior in our tests.
getESDocument :: Integer -> Handler Value getESDocument :: Integer -> Handler Value
getESDocument docId getESDocument docId
-- arbitrary things we can trigger in our tests to check for failure -- arbitrary things we can use in our tests to simulate failure
-- We want to try to trigger different code paths -- We want to trigger different code paths
| docId > 1000 = throwError err500 | docId > 1000 = throwError err500
| docId > 500 = pure . Object $ HM.fromList [("bad", String "data")] | docId > 500 = pure . Object $ HM.fromList [("bad", String "data")]
| otherwise = pure $ Object $ HM.fromList [("_source", Object $ HM.fromList [("a", String "b")])] | otherwise = pure $ Object $ HM.fromList [("_source", Object $ HM.fromList [("a", String "b")])]
@ -294,7 +296,6 @@ thirdPartyResourcesSpec = around_ withElasticsearch $ do
-- `get` is a function from hspec-wai`. -- `get` is a function from hspec-wai`.
get "/docs/1" `shouldRespondWith` 200 get "/docs/1" `shouldRespondWith` 200
it "should be able to handle connection failures" $ it "should be able to handle connection failures" $
-- We can also make custom HTTP requests with the `request` function
get "/docs/1001" `shouldRespondWith` 404 get "/docs/1001" `shouldRespondWith` 404
it "should be able to handle parsing failures" $ it "should be able to handle parsing failures" $
get "/docs/501" `shouldRespondWith` 400 get "/docs/501" `shouldRespondWith` 400