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

bodyEquals prints actual body.

Browse Source
This commit is contained in:
Steven Leiva 2018-06-13 22:56:45 -05:00
parent cae2a9159a
commit 0a089c8cb0
3 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-test/ChangeLog.md
View File

@ -1,3 +1,7 @@
## 1.6.5
bodyEquals prints out actual body in addition to expected body in failure msg
[#1525](https://github.com/yesodweb/yesod/pull/1525)
## 1.6.4 ## 1.6.4
Add yesodSpecWithSiteGeneratorAndArgument Add yesodSpecWithSiteGeneratorAndArgument
[#1485](https://github.com/yesodweb/yesod/pull/1485) [#1485](https://github.com/yesodweb/yesod/pull/1485)

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

@ -138,6 +138,7 @@ import qualified Data.ByteString.Char8 as BS8
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import qualified Data.Text as T import qualified Data.Text as T
import qualified Data.Text.Encoding as TE import qualified Data.Text.Encoding as TE
import qualified Data.Text.Encoding.Error as TErr
import qualified Data.ByteString.Lazy.Char8 as BSL8 import qualified Data.ByteString.Lazy.Char8 as BSL8
import qualified Test.HUnit as HUnit import qualified Test.HUnit as HUnit
import qualified Network.HTTP.Types as H import qualified Network.HTTP.Types as H
@ -153,7 +154,7 @@ import Yesod.Core.Unsafe (runFakeHandler)
import Yesod.Test.TransversingCSS import Yesod.Test.TransversingCSS
import Yesod.Core import Yesod.Core
import qualified Data.Text.Lazy as TL import qualified Data.Text.Lazy as TL
import Data.Text.Lazy.Encoding (encodeUtf8, decodeUtf8) import Data.Text.Lazy.Encoding (encodeUtf8, decodeUtf8, decodeUtf8With)
import Text.XML.Cursor hiding (element) import Text.XML.Cursor hiding (element)
import qualified Text.XML.Cursor as C import qualified Text.XML.Cursor as C
import qualified Text.HTML.DOM as HD import qualified Text.HTML.DOM as HD
@ -439,9 +440,14 @@ assertNoHeader header = withResponse $ \ SResponse { simpleHeaders = h } ->
-- | Assert the last response is exactly equal to the given text. This is -- | Assert the last response is exactly equal to the given text. This is
-- useful for testing API responses. -- useful for testing API responses.
bodyEquals :: HasCallStack => String -> YesodExample site () bodyEquals :: HasCallStack => String -> YesodExample site ()
bodyEquals text = withResponse $ \ res -> bodyEquals text = withResponse $ \ res -> do
liftIO $ HUnit.assertBool ("Expected body to equal " ++ text) $ let actual = simpleBody res
(simpleBody res) == encodeUtf8 (TL.pack text) msg = concat [ "Expected body to equal:\n\t"
, text ++ "\n"
, "Actual is:\n\t"
, TL.unpack $ decodeUtf8With TErr.lenientDecode actual
]
liftIO $ HUnit.assertBool msg $ actual == encodeUtf8 (TL.pack text)
-- | Assert the last response has the given text. The check is performed using the response -- | Assert the last response has the given text. The check is performed using the response
-- body in full text form. -- body in full text form.

2
yesod-test/yesod-test.cabal
View File

@ -1,5 +1,5 @@
name: yesod-test name: yesod-test
version: 1.6.4 version: 1.6.5
license: MIT license: MIT
license-file: LICENSE license-file: LICENSE
author: Nubis <nubis@woobiz.com.ar> author: Nubis <nubis@woobiz.com.ar>