steve-chavez
958339b8d3
"render" is a loaded term than might be thought as the generation of a full HTML page. While for this phase we only process the status and the headers. Changing it to "response" so is not misleading at least. Users can check the docs for clarification.
76 lines
2.8 KiB
Haskell
76 lines
2.8 KiB
Haskell
module Feature.Query.ServerTimingSpec where
|
|
|
|
import Network.Wai (Application)
|
|
|
|
import Network.HTTP.Types
|
|
import Test.Hspec
|
|
import Test.Hspec.Wai
|
|
import Test.Hspec.Wai.JSON
|
|
|
|
import Protolude hiding (get)
|
|
import SpecHelper
|
|
|
|
spec :: SpecWith ((), Application)
|
|
spec =
|
|
describe "Show Duration on Server-Timing header" $ do
|
|
|
|
context "responseonds with Server-Timing header" $ do
|
|
it "works with get request" $ do
|
|
request methodGet "/organizations?id=eq.6"
|
|
[]
|
|
""
|
|
`shouldRespondWith`
|
|
[json|[{"id":6,"name":"Oscorp","referee":3,"auditor":4,"manager_id":6}]|]
|
|
{ matchStatus = 200
|
|
, matchHeaders = matchContentTypeJson : map matchServerTimingHasTiming ["jwt", "parse", "plan", "transaction", "response"]
|
|
}
|
|
|
|
it "works with post request" $
|
|
request methodPost "/organizations?select=*"
|
|
[("Prefer","return=representation")]
|
|
[json|{"id":7,"name":"John","referee":null,"auditor":null,"manager_id":6}|]
|
|
`shouldRespondWith`
|
|
[json|[{"id":7,"name":"John","referee":null,"auditor":null,"manager_id":6}]|]
|
|
{ matchStatus = 201
|
|
, matchHeaders = matchContentTypeJson : map matchServerTimingHasTiming ["jwt", "parse", "plan", "transaction", "response"]
|
|
}
|
|
|
|
it "works with patch request" $
|
|
request methodPatch "/no_pk?b=eq.0" mempty
|
|
[json| { b: "1" } |]
|
|
`shouldRespondWith`
|
|
""
|
|
{ matchStatus = 204
|
|
, matchHeaders = matchHeaderAbsent hContentType : map matchServerTimingHasTiming ["jwt", "parse", "plan", "transaction", "response"]
|
|
}
|
|
|
|
it "works with put request" $
|
|
request methodPut "/tiobe_pls?name=eq.Python"
|
|
[("Prefer", "return=representation")]
|
|
[json| [ { "name": "Python", "rank": 19 } ]|]
|
|
`shouldRespondWith`
|
|
[json| [ { "name": "Python", "rank": 19 } ]|]
|
|
{ matchStatus = 200
|
|
, matchHeaders = map matchServerTimingHasTiming ["jwt", "parse", "plan", "transaction", "response"]
|
|
}
|
|
|
|
it "works with delete request" $
|
|
request methodDelete "/items?id=eq.1"
|
|
[]
|
|
""
|
|
`shouldRespondWith`
|
|
""
|
|
{ matchStatus = 204
|
|
, matchHeaders = matchHeaderAbsent hContentType : map matchServerTimingHasTiming ["jwt", "parse", "plan", "transaction", "response"]
|
|
}
|
|
|
|
it "works with rpc call" $
|
|
request methodPost "/rpc/ret_point_overloaded"
|
|
[]
|
|
[json|{"x": 1, "y": 2}|]
|
|
`shouldRespondWith`
|
|
[json|{"x": 1, "y": 2}|]
|
|
{ matchStatus = 200
|
|
, matchHeaders = map matchServerTimingHasTiming ["jwt", "parse", "plan", "transaction", "response"]
|
|
}
|