fix: Return 204 No Content without Content-Type for PUT

2021-12-01 09:19:47 +01:00
parent 1cb00d3c62
commit 0e20b47875
15 changed files with 373 additions and 193 deletions
@@ -7,7 +7,8 @@ import Test.Hspec
 import Test.Hspec.Wai
 import Test.Hspec.Wai.JSON

-import Protolude hiding (get)
+import Protolude  hiding (get)
+import SpecHelper

 spec :: SpecWith ((), Application)
 spec =
@@ -31,4 +32,7 @@ spec =
          [("Prefer", "tx=commit")]
          ""
        `shouldRespondWith`
-          204
+          ""
+          { matchStatus = 204
+          , matchHeaders = [matchHeaderAbsent hContentType]
+          }