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