Skip to content

haskell-gargantext
haskell-gargantext
Verified Commit 5aa13f3e authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[test] shouldRespondWithFrament with 200 status

parent f5b6b8c6
Pipeline #5580 failed with stages
          in 20 minutes and 26 seconds
          Hide whitespace changes
          Inline Side-by-side
          Showing with 2 additions and 3 deletions
          test/Test/Utils.hs
          View file @ 5aa13f3e
          ...@@ -37,9 +37,8 @@ shouldRespondWithFragment :: HasCallStack ...@@ -37,9 +37,8 @@ shouldRespondWithFragment :: HasCallStack
          => WaiSession st SResponse => WaiSession st SResponse
          -> JsonFragmentResponseMatcher -> JsonFragmentResponseMatcher
          -> WaiExpectation st -> WaiExpectation st
          shouldRespondWithFragment action matcher = do shouldRespondWithFragment action matcher =
          r <- action shouldRespondWithFragmentCustomStatus 200 action matcher
          forM_ (match r (getJsonMatcher matcher)) (liftIO . expectationFailure)
          -- | Same as above, but with custom status code -- | Same as above, but with custom status code
          shouldRespondWithFragmentCustomStatus :: HasCallStack shouldRespondWithFragmentCustomStatus :: HasCallStack
          ......
          Markdown is supported
          0% or
          You are about to add 0 people to the discussion. Proceed with caution.
          Finish editing this message first!
          Please register or to comment