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

Merge branch 'patch-1' of https://github.com/friedbrice/yesod

Browse Source
This commit is contained in:
Michael Snoyman 2022-05-11 14:44:27 +03:00
commit 99c1fd49a3
No known key found for this signature in database
GPG Key ID: 907EAE2F42B52046
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
yesod-test/ChangeLog.md
View File

@ -4,6 +4,7 @@
* Fix quotes not matching in htmlContain* functions [#1768](https://github.com/yesodweb/yesod/pull/1768). * Fix quotes not matching in htmlContain* functions [#1768](https://github.com/yesodweb/yesod/pull/1768).
* Add logging of the matches found of these functions [#1768](https://github.com/yesodweb/yesod/pull/1768). * Add logging of the matches found of these functions [#1768](https://github.com/yesodweb/yesod/pull/1768).
* Improved failure messages from `assertEq`. [#1767](https://github.com/yesodweb/yesod/pull/1767)
## 1.6.13 ## 1.6.13

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

@ -546,10 +546,8 @@ htmlQuery = htmlQuery' yedResponse []
-- @since 1.5.2 -- @since 1.5.2
assertEq :: (HasCallStack, Eq a, Show a) => String -> a -> a -> YesodExample site () assertEq :: (HasCallStack, Eq a, Show a) => String -> a -> a -> YesodExample site ()
assertEq m a b = assertEq m a b =
liftIO $ HUnit.assertBool msg (a == b) liftIO $ HUnit.assertEqual msg a b
where msg = "Assertion: " ++ m ++ "\n" ++ where msg = "Assertion: " ++ m ++ "\n"
"First argument: " ++ ppShow a ++ "\n" ++
"Second argument: " ++ ppShow b ++ "\n"
-- | Asserts that the two given values are not equal. -- | Asserts that the two given values are not equal.
-- --