hasura/graphql-engine
1
0
Fork 0
mirror of https://github.com/hasura/graphql-engine.git synced 2024-11-14 05:45:24 +03:00
Code Issues Projects Releases Wiki Activity

tests: log in a better place so we don't miss things

Browse Source 
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/5763
GitOrigin-RevId: 5e3c0be1555596b90c88bbe4c29f88d14552efea
This commit is contained in:
Daniel Harvey 2022-09-07 16:40:14 +01:00 committed by hasura-bot
parent 8c8dc7a52f
commit 50750e0aa9
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
server/tests-hspec/Harness/GraphqlEngine.hs
View File

@ -97,10 +97,8 @@ post_ testEnvironment path v = void $ withFrozenCallStack $ postWithHeaders_ tes
-- Note: We add 'withFrozenCallStack' to reduce stack trace clutter.
postWithHeaders ::
HasCallStack => TestEnvironment -> String -> Http.RequestHeaders -> Value -> IO Value
postWithHeaders testEnv url headers json = do
testLog testEnv $ "Posting to " <> url
testLogBytestring testEnv (AP.encodePretty json)
withFrozenCallStack $ postWithHeadersStatus 200 testEnv url headers json
postWithHeaders =
withFrozenCallStack $ postWithHeadersStatus 200
-- | Post some JSON to graphql-engine, getting back more JSON.
--
@ -110,8 +108,12 @@ postWithHeaders testEnv url headers json = do
-- Note: We add 'withFrozenCallStack' to reduce stack trace clutter.
postWithHeadersStatus ::
HasCallStack => Int -> TestEnvironment -> String -> Http.RequestHeaders -> Value -> IO Value
postWithHeadersStatus statusCode (getServer -> Server {urlPrefix, port}) path headers v =
withFrozenCallStack $ Http.postValueWithStatus statusCode (urlPrefix ++ ":" ++ show port ++ path) headers v
postWithHeadersStatus statusCode testEnv@(getServer -> Server {urlPrefix, port}) path headers requestBody = do
testLog testEnv $ "Posting to " <> path
testLogBytestring testEnv $ "Request body: " <> AP.encodePretty requestBody
responseBody <- withFrozenCallStack $ Http.postValueWithStatus statusCode (urlPrefix ++ ":" ++ show port ++ path) headers requestBody
testLogBytestring testEnv $ "Response body: " <> AP.encodePretty responseBody
pure responseBody
-- | Post some JSON to graphql-engine, getting back more JSON.
--