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

small typo cleanups

Browse source
This commit is contained in:
Erik Aker 2018-10-14 11:04:37 -07:00
parent 64f89f600a
commit 02da07f95f
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -12,8 +12,8 @@ applications.
There are many testing strategies you may wish to employ when testing your There are many testing strategies you may wish to employ when testing your
Servant application, but included below are three common testing patterns: Servant application, but included below are three common testing patterns:
- We'll use `servant-client` to derive client functions and then make valid - We'll use `servant-client` to derive client functions and then send valid
requests of our API, running in another thread. This is great for testing requests to our API, running in another thread. This is great for testing
that our **business logic** is correctly implemented with only valid HTTP that our **business logic** is correctly implemented with only valid HTTP
requests. requests.
@ -36,7 +36,7 @@ Servant applications:
## Imports and Our Testing Module ## Imports and Our Testing Module
This recipe starts the following ingredients: This recipe starts with the following ingredients:
```haskell ```haskell
{-# LANGUAGE OverloadedStrings, TypeFamilies, DataKinds, {-# LANGUAGE OverloadedStrings, TypeFamilies, DataKinds,
@ -150,7 +150,7 @@ withUserApp action =
businessLogicSpec :: Spec businessLogicSpec :: Spec
businessLogicSpec = businessLogicSpec =
-- `around` will our Server before the tests and turn it off after -- `around` will start our Server before the tests and turn it off after
around_ withUserApp $ do around_ withUserApp $ do
-- create a test client function -- create a test client function
let createUser = client (Proxy :: Proxy UserApi) let createUser = client (Proxy :: Proxy UserApi)