steve-chavez
82b38341bf
* test text/html and drop HtmlRawOutputSpec.hs * all tests passing, removed all pendingWith * make functions compatible with pg <= 12 * move custom media types tests to own spec * anyelement aggregate * apply aggregates without a final function * overriding works * overriding anyelement with particular agg * cannot override vendored media types * plan spec works with custom aggregate * renamed media types to make clear which ones are overridable * correct content negotiation with same weight * text/tab-separated-values media type * text/csv with BOM plus content-disposition header
32 lines
1.1 KiB
Haskell
32 lines
1.1 KiB
Haskell
module Feature.OpenApi.RootSpec where
|
|
|
|
import Network.HTTP.Types
|
|
import Network.Wai (Application)
|
|
|
|
import Test.Hspec hiding (pendingWith)
|
|
import Test.Hspec.Wai
|
|
import Test.Hspec.Wai.JSON
|
|
|
|
import Protolude hiding (get)
|
|
|
|
spec :: SpecWith ((), Application)
|
|
spec =
|
|
describe "root spec function" $ do
|
|
it "accepts application/openapi+json" $ do
|
|
request methodGet "/"
|
|
[("Accept","application/openapi+json")] "" `shouldRespondWith`
|
|
[json|{
|
|
"swagger": "2.0",
|
|
"info": {"title": "PostgREST API", "description": "This is a dynamic API generated by PostgREST"}
|
|
}|]
|
|
{ matchHeaders = ["Content-Type" <:> "application/openapi+json; charset=utf-8"] }
|
|
|
|
it "accepts application/json" $ do
|
|
request methodGet "/"
|
|
[("Accept","application/json")] "" `shouldRespondWith`
|
|
[json|{
|
|
"swagger": "2.0",
|
|
"info": {"title": "PostgREST API", "description": "This is a dynamic API generated by PostgREST"}
|
|
}|]
|
|
{ matchHeaders = ["Content-Type" <:> "application/json; charset=utf-8"] }
|