From dae1a34d4c7356ae0e1d7626baf83332a0984688 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Wed, 10 Aug 2016 08:48:57 +0300 Subject: [PATCH] Version bump for #1259 --- yesod-test/ChangeLog.md | 4 ++++ yesod-test/Yesod/Test.hs | 7 +++++++ yesod-test/yesod-test.cabal | 2 +- 3 files changed, 12 insertions(+), 1 deletion(-) 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