From cf7a789e9e8b2e6d851d3cce513d2147b176d475 Mon Sep 17 00:00:00 2001 From: Wolfgang Walther Date: Thu, 9 May 2024 17:32:00 +0200 Subject: [PATCH] test: Improve failing test output for requestMutation --- test/spec/SpecHelper.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/spec/SpecHelper.hs b/test/spec/SpecHelper.hs index 362c61f4c..4e9b4fcde 100644 --- a/test/spec/SpecHelper.hs +++ b/test/spec/SpecHelper.hs @@ -327,7 +327,7 @@ baseTable = BaseTable -- | The mutation (update/delete) that will be applied to the base table requestMutation :: Method -> ByteString -> [Header] -> BL.ByteString -> WaiExpectation () requestMutation method path headers body = - request method path (("Prefer", "tx=commit") : headers) body `shouldRespondWith` 204 + request method path (("Prefer", "tx=commit") : headers) body `shouldRespondWith` "" { matchStatus = 204 } data BaseTable = BaseTable ByteString ByteString JSON.Value data MutationCheck = MutationCheck BaseTable (WaiExpectation ())