From 8028f1defd85873252231e6020fa08221dcc5a5a Mon Sep 17 00:00:00 2001 From: "Daniel P. Brice" Date: Tue, 10 May 2022 13:24:21 -0700 Subject: [PATCH] assertEq delegates to HUnit.assertEqual HUnit.assertEqual gives a formatted diff, making it easier to see the differences between the two values at a glance. --- yesod-test/Yesod/Test.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/yesod-test/Yesod/Test.hs b/yesod-test/Yesod/Test.hs index f2adff40..669596a1 100644 --- a/yesod-test/Yesod/Test.hs +++ b/yesod-test/Yesod/Test.hs @@ -544,10 +544,8 @@ htmlQuery = htmlQuery' yedResponse [] -- @since 1.5.2 assertEq :: (HasCallStack, Eq a, Show a) => String -> a -> a -> YesodExample site () assertEq m a b = - liftIO $ HUnit.assertBool msg (a == b) - where msg = "Assertion: " ++ m ++ "\n" ++ - "First argument: " ++ ppShow a ++ "\n" ++ - "Second argument: " ++ ppShow b ++ "\n" + liftIO $ HUnit.assertEqual msg a b + where msg = "Assertion: " ++ m ++ "\n" -- | Asserts that the two given values are not equal. --