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.Capture
import Servant.API.Get import Servant.API.Get
import Servant.API.JsonBody import Servant.API.ReqBody
import Servant.API.Post import Servant.API.Post
import Servant.API.QueryParam import Servant.API.QueryParam
import Servant.API.Raw 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 PostApi
postApi = Proxy postApi = Proxy
postSpec :: Spec postSpec :: Spec
postSpec = do postSpec = do
describe "Servant.API.Post and .JsonBody" $ do describe "Servant.API.Post and .ReqBody" $ do
with (return (serve postApi (return . age))) $ do with (return (serve postApi (return . age))) $ do
it "allows to POST a Person" $ do it "allows to POST a Person" $ do
post "/" (encode alice) `shouldRespondWith` "42"{ post "/" (encode alice) `shouldRespondWith` "42"{