@@ -54,21 +54,6 @@ spec = do
5454 req GET (httpbun /: "foo") NoReqBody ignoreResponse mempty
5555 `shouldThrow` selector404ByStatusCodeException
5656
57− describe "receiving user-agent header back" $
58− it "works" $ do
59− r <-
60− req
61− GET
62− (httpbun /: "user-agent")
63− NoReqBody
64− jsonResponse
65− (header "user-agent" "Req")
66− responseBody r
67− `shouldBe` object
68− ["user-agent" .= ("Req" :: Text)]
69− responseStatusCode r `shouldBe` 200
70− responseStatusMessage r `shouldBe` "OK"
71−
7257 describe "receiving request headers back" $
7358 it "works" $ do
7459 r <-
@@ -98,7 +83,11 @@ spec = do
9883 "headers"
9984 .= object
10085 [ "Accept-Encoding" .= ("gzip" :: Text)
101− ]
86+ ],
87+ "form" .= emptyObject,
88+ "files" .= emptyObject,
89+ "data" .= ("" :: Text),
90+ "json" .= Null
10291 ]
10392 responseHeader r "Content-Type" `shouldBe` return "application/json"
10493 responseStatusCode r `shouldBe` 200