haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add bodyEquals assertion

Browse Source
This commit is contained in:
Michael Xavier 2012-03-22 19:20:15 -07:00
parent f69f0b0cba
commit f035b1fc22
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
yesod-test/Yesod/Test.hs
View File

@ -50,7 +50,7 @@ module Yesod.Test (
runDB,
-- * Assertions
assertEqual, statusIs, bodyContains, htmlAllContain, htmlCount,
assertEqual, statusIs, bodyEquals, bodyContains, htmlAllContain, htmlCount,
-- * Utils for debugging tests
printBody, printMatches,
@ -179,6 +179,13 @@ statusIs number = withResponse $ \ SResponse { simpleStatus = s } ->
, " but received status was ", show $ H.statusCode s
]
-- | Assert the last response is exactly equal to the given text. This is
-- useful for testing API responses.
bodyEquals :: HoldsResponse a => String -> ST.StateT a IO ()
bodyEquals text = withResponse $ \ res ->
liftIO $ HUnit.assertBool ("Expected body to equal " ++ text) $
(simpleBody res) == BSL8.pack text
-- | Assert the last response has the given text. The check is performed using the response
-- body in full text form.
bodyContains :: HoldsResponse a => String -> ST.StateT a IO ()