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

rename JsonBody to ReqBody in tests too -- this closes #11 for now

Browse Source
This commit is contained in:
Alp Mestanogullari 2014-10-28 16:32:32 +01:00
parent 82a7428507
commit 812922d9b6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/Servant/ServerSpec.hs
View File

@ -22,7 +22,7 @@ import Test.Hspec.Wai
import Servant.API.Capture
import Servant.API.Get
import Servant.API.JsonBody
import Servant.API.ReqBody
import Servant.API.Post
import Servant.API.QueryParam
import Servant.API.Raw
@ -141,13 +141,13 @@ queryParamSpec = do
}
type PostApi = JsonBody Person :> Post Integer
type PostApi = ReqBody Person :> Post Integer
postApi :: Proxy PostApi
postApi = Proxy
postSpec :: Spec
postSpec = do
describe "Servant.API.Post and .JsonBody" $ do
describe "Servant.API.Post and .ReqBody" $ do
with (return (serve postApi (return . age))) $ do
it "allows to POST a Person" $ do
post "/" (encode alice) `shouldRespondWith` "42"{