git.iko.soy/typeable/servant
on master help sign in
rename JsonBody to ReqBody in tests too -- this closes #11 for now
812922dAlp Mestanogullari
test/Servant/ServerSpec.hs+3−3
compare with master
unifiedsplit
@@ -22,7 +22,7 @@ import Test.Hspec.Wai
22
22
23import Servant.API.Capture
23import Servant.API.Capture
24import Servant.API.Get
24import Servant.API.Get
25−import Servant.API.JsonBody
25+import Servant.API.ReqBody
26import Servant.API.Post
26import Servant.API.Post
27import Servant.API.QueryParam
27import Servant.API.QueryParam
28import Servant.API.Raw
28import Servant.API.Raw
@@ -141,13 +141,13 @@ queryParamSpec = do
141 }
141 }
142
142
143
143
144−type PostApi = JsonBody Person :> Post Integer
144+type PostApi = ReqBody Person :> Post Integer
145postApi :: Proxy PostApi
145postApi :: Proxy PostApi
146postApi = Proxy
146postApi = Proxy
147
147
148postSpec :: Spec
148postSpec :: Spec
149postSpec = do
149postSpec = do
150− describe "Servant.API.Post and .JsonBody" $ do
150+ describe "Servant.API.Post and .ReqBody" $ do
151 with (return (serve postApi (return . age))) $ do
151 with (return (serve postApi (return . age))) $ do
152 it "allows to POST a Person" $ do
152 it "allows to POST a Person" $ do
153 post "/" (encode alice) `shouldRespondWith` "42"{
153 post "/" (encode alice) `shouldRespondWith` "42"{