@@ -211,11 +211,17 @@ errorRetrySpec =
211211
212212 it "should continue when URLs don't match" $ do
213213 request methodPost "" [jsonCT, jsonAccept] jsonBody
214− `shouldRespondWith` 200 { matchBody = Just $ encode (8 :: Int) }
214+ `shouldRespondWith` 200 { matchBody = mkBody $ encode (8 :: Int) }
215215
216216 it "should continue when methods don't match" $ do
217217 request methodGet "a" [jsonCT, jsonAccept] jsonBody
218− `shouldRespondWith` 200 { matchBody = Just $ encode (4 :: Int) }
218+ `shouldRespondWith` 200 { matchBody = mkBody $ encode (4 :: Int) }
219+ where
220+ mkBody b = MatchBody $ \_ b' ->
221+ if b == b'
222+ then Nothing
223+ else Just "body not correct\n"
224+
219225
220226-- }}}
221227------------------------------------------------------------------------------