Add response.headers on GET/POST/PATCH/PUT/DELETE

2020-01-21 12:28:05 -05:00
parent 7dade7f466
commit c7f78fa7fc
9 changed files with 202 additions and 115 deletions
@@ -138,6 +138,9 @@ testCfgRootSpec testDbConn = (testCfg testDbConn) { configRootSpec = Just "root"
 testCfgHtmlRawOutput :: Text -> AppConfig
 testCfgHtmlRawOutput testDbConn = (testCfg testDbConn) { configRawMediaTypes = ["text/html"] }

+testCfgResponseHeaders :: Text -> AppConfig
+testCfgResponseHeaders testDbConn = (testCfg testDbConn) { configReqCheck = Just "custom_headers" }
+
 setupDb :: Text -> IO ()
 setupDb dbConn = do
  loadFixture dbConn "database"