[test] shouldRespondWithFrament with 200 status

5aa13f3e · Przemyslaw Kaminski · f5b6b8c6 · 5aa13f3e
Verified Commit 5aa13f3e authored Feb 06, 2024 by Przemyslaw Kaminski
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 3 deletions

Utils.hs test/Test/Utils.hs +2 -3

No files found.
--- a/test/Test/Utils.hs
+++ b/test/Test/Utils.hs
@@ -37,9 +37,8 @@ shouldRespondWithFragment :: HasCallStack
                          => WaiSession st SResponse
                          -> JsonFragmentResponseMatcher
                          -> WaiExpectation st
-shouldRespondWithFragment action matcher = do
-  r <- action
-  forM_ (match r (getJsonMatcher matcher)) (liftIO . expectationFailure)
+shouldRespondWithFragment action matcher =
+  shouldRespondWithFragmentCustomStatus 200 action matcher

 -- | Same as above, but with custom status code
 shouldRespondWithFragmentCustomStatus :: HasCallStack