Joe NelsonandGitHub
1d5a0e4316
* WIP: remove non-openapi root spec * Refactor ContentType Different endpoints will favor one type over another * Permit different Accept headers per endpoint * Lint * Add charset to Content-Type only when used as a header Keep it out of error messages * Accept: */* is last resort, not first * Changelog * makeMimeList consistently * Remove schema description from OPTIONS response
37 lines
1.0 KiB
Haskell
37 lines
1.0 KiB
Haskell
module Feature.StructureSpec where
|
|
|
|
import Test.Hspec hiding (pendingWith)
|
|
import Test.Hspec.Wai
|
|
import Network.HTTP.Types
|
|
|
|
import SpecHelper
|
|
|
|
import Network.Wai (Application)
|
|
import Network.Wai.Test (SResponse(simpleHeaders))
|
|
|
|
spec :: SpecWith Application
|
|
spec = do
|
|
|
|
describe "OpenAPI" $ do
|
|
it "root path returns a valid openapi spec" $
|
|
validateOpenApiResponse [("Accept", "application/openapi+json")]
|
|
|
|
it "should respond to openapi request on none root path with 415" $
|
|
request methodGet "/items"
|
|
(acceptHdrs "application/openapi+json") ""
|
|
`shouldRespondWith` 415
|
|
|
|
describe "Allow header" $ do
|
|
|
|
it "includes read/write verbs for writeable table" $ do
|
|
r <- request methodOptions "/items" [] ""
|
|
liftIO $
|
|
simpleHeaders r `shouldSatisfy`
|
|
matchHeader "Allow" "GET,POST,PATCH,DELETE"
|
|
|
|
it "includes read verbs for read-only table" $ do
|
|
r <- request methodOptions "/has_count_column" [] ""
|
|
liftIO $
|
|
simpleHeaders r `shouldSatisfy`
|
|
matchHeader "Allow" "GET"
|