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 = 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 docId
-- arbitrary things we can trigger in our tests to check for failure
-- We want to try to trigger different code paths
-- arbitrary things we can use in our tests to simulate failure
-- We want to trigger different code paths
| docId > 1000 = throwError err500
| docId > 500 = pure . Object $ HM.fromList [("bad", String "data")]
| 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 "/docs/1" `shouldRespondWith` 200
it "should be able to handle connection failures" $
-- We can also make custom HTTP requests with the `request` function
get "/docs/1001" `shouldRespondWith` 404
it "should be able to handle parsing failures" $
get "/docs/501" `shouldRespondWith` 400