diff --git a/yesod-test/ChangeLog.md b/yesod-test/ChangeLog.md index a9c52aa4..c80d2f6e 100644 --- a/yesod-test/ChangeLog.md +++ b/yesod-test/ChangeLog.md @@ -1,3 +1,7 @@ +## 1.5.2 + +* Added assertEq, deprecated assertEqual [#1259](https://github.com/yesodweb/yesod/pull/1259) + ## 1.5.1.1 * Fix `addToken_` needing a trailing space and allows multiples spaces in css selector. diff --git a/yesod-test/Yesod/Test.hs b/yesod-test/Yesod/Test.hs index 211b6afd..984d8eb0 100644 --- a/yesod-test/Yesod/Test.hs +++ b/yesod-test/Yesod/Test.hs @@ -319,6 +319,11 @@ htmlQuery' getter errTrace query = withResponse' getter ("Tried to invoke htmlQu htmlQuery :: Query -> YesodExample site [HtmlLBS] htmlQuery = htmlQuery' yedResponse [] +-- | Asserts that the two given values are equal. +-- +-- In case they are not equal, error mesasge includes the two values. +-- +-- @since 1.5.2 assertEq :: (Eq a, Show a) => String -> a -> a -> YesodExample site () assertEq m a b = liftIO $ HUnit.assertBool msg (a == b) @@ -331,6 +336,8 @@ assertEqual :: (Eq a) => String -> a -> a -> YesodExample site () assertEqual = assertEqualNoShow -- | Asserts that the two given values are equal. +-- +-- @since 1.5.2 assertEqualNoShow :: (Eq a) => String -> a -> a -> YesodExample site () assertEqualNoShow msg a b = liftIO $ HUnit.assertBool msg (a == b) diff --git a/yesod-test/yesod-test.cabal b/yesod-test/yesod-test.cabal index 16924ba5..3365dfa3 100644 --- a/yesod-test/yesod-test.cabal +++ b/yesod-test/yesod-test.cabal @@ -1,5 +1,5 @@ name: yesod-test -version: 1.5.1.1 +version: 1.5.2 license: MIT license-file: LICENSE author: Nubis