test suite: Post

This commit is contained in:
Sönke Hahn 2014-10-27 08:10:48 +01:00
parent 13664a218c
commit d0782db08b
2 changed files with 26 additions and 4 deletions

View file

@ -8,7 +8,6 @@ module Servant.API.RQBody where
import Control.Applicative import Control.Applicative
import Data.Aeson import Data.Aeson
import Data.Proxy import Data.Proxy
import Data.Text
import Network.Wai import Network.Wai
import Servant.API.Sub import Servant.API.Sub
import Servant.Client import Servant.Client

View file

@ -1,7 +1,9 @@
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-} {-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeOperators #-}
module Servant.ServerSpec where module Servant.ServerSpec where
@ -14,6 +16,9 @@ import Test.Hspec
import Test.Hspec.Wai import Test.Hspec.Wai
import Servant.API.Get import Servant.API.Get
import Servant.API.Post
import Servant.API.RQBody
import Servant.API.Sub
import Servant.Server import Servant.Server
@ -27,23 +32,41 @@ instance ToJSON Person
instance FromJSON Person instance FromJSON Person
alice :: Person alice :: Person
alice = Person "Alice" 103 alice = Person "Alice" 42
spec :: Spec spec :: Spec
spec = do spec = do
getSpec getSpec
postSpec
type GetApi = Get Person type GetApi = Get Person
getApi :: Proxy GetApi getApi :: Proxy GetApi
getApi = Proxy getApi = Proxy
getSpec = do getSpec :: Spec = do
describe "Servant.API.Get" $ do describe "Servant.API.Get" $ do
with (return (serve getApi (return alice))) $ do with (return (serve getApi (return alice))) $ do
it "serves a Person" $ do it "allows to GET a Person" $ do
response <- get "/" response <- get "/"
return response `shouldRespondWith` 200 return response `shouldRespondWith` 200
liftIO $ do liftIO $ do
decode' (simpleBody response) `shouldBe` Just alice decode' (simpleBody response) `shouldBe` Just alice
it "throws 404 on POSTs" $ do
post "/" "" `shouldRespondWith` 404
type PostApi = RQBody Person :> (Post Integer)
postApi :: Proxy PostApi
postApi = Proxy
postSpec :: Spec
postSpec = do
describe "Servant.API.Post and .RQBody" $ do
with (return (serve postApi (return . age))) $ do
it "allows to POST a Person" $ do
post "/" (encode alice) `shouldRespondWith` "42"{
matchStatus = 201
}