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

Add bodyNotContains function

Browse Source
This commit is contained in:
Amitaibu 2016-09-01 14:09:10 +03:00
parent 92c3a08eb1
commit 21e0ef11ba
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -395,6 +395,13 @@ bodyContains text = withResponse $ \ res ->
liftIO $ HUnit.assertBool ("Expected body to contain " ++ text) $
(simpleBody res) `contains` text
-- | Assert the last response doesn't have the given text. The check is performed using the response
-- body in full text form.
bodyNotContains :: String -> YesodExample site ()
bodyNotContains text = withResponse $ \ res ->
liftIO $ HUnit.assertBool ("Expected body not to contain " ++ text) $
not . contains (simpleBody res) text
contains :: BSL8.ByteString -> String -> Bool
contains a b = DL.isInfixOf b (TL.unpack $ decodeUtf8 a)