Dan AmorosoandSteve Chávez
f5cef205f1
* extracted rawOutputTypes to config variable raw-output-media-types * removed CTTextHtml from Types.hs
34 lines
1.8 KiB
Haskell
34 lines
1.8 KiB
Haskell
module Feature.RawOutputTypesSpec where
|
|
|
|
import Network.Wai (Application)
|
|
|
|
import Network.HTTP.Types
|
|
import Test.Hspec
|
|
import Test.Hspec.Wai
|
|
import Test.Hspec.Wai.JSON
|
|
|
|
import Protolude
|
|
import SpecHelper (acceptHdrs)
|
|
|
|
spec :: SpecWith Application
|
|
spec = describe "When raw-media-types config variable is missing or left empty" $ do
|
|
let firefoxAcceptHdrs = acceptHdrs "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
|
|
chromeAcceptHdrs = acceptHdrs "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3"
|
|
it "responds json to a GET request with Firefox Accept headers" $
|
|
request methodGet "/items?id=eq.1" firefoxAcceptHdrs ""
|
|
`shouldRespondWith` [json| [{"id":1}] |]
|
|
{ matchHeaders= ["Content-Type" <:> "application/json; charset=utf-8"] }
|
|
it "responds json to a GET request with Chrome Accept headers" $
|
|
request methodGet "/items?id=eq.1" chromeAcceptHdrs ""
|
|
`shouldRespondWith` [json| [{"id":1}] |]
|
|
{ matchHeaders= ["Content-Type" <:> "application/json; charset=utf-8"] }
|
|
|
|
it "responds json to a GET request to RPC with Firefox Accept headers" $
|
|
request methodGet "/rpc/get_projects_below?id=3" chromeAcceptHdrs ""
|
|
`shouldRespondWith` [json|[{"id":1,"name":"Windows 7","client_id":1}, {"id":2,"name":"Windows 10","client_id":1}]|]
|
|
{ matchHeaders= ["Content-Type" <:> "application/json; charset=utf-8"] }
|
|
it "responds json to a GET request to RPC with Chrome Accept headers" $
|
|
request methodGet "/rpc/get_projects_below?id=3" chromeAcceptHdrs ""
|
|
`shouldRespondWith` [json|[{"id":1,"name":"Windows 7","client_id":1}, {"id":2,"name":"Windows 10","client_id":1}]|]
|
|
{ matchHeaders= ["Content-Type" <:> "application/json; charset=utf-8"] }
|