From 6099753702497dabc35a2d284eac310e0b98dc10 Mon Sep 17 00:00:00 2001 From: Daniel Barlow Date: Tue, 29 Oct 2024 19:57:29 +0000 Subject: [PATCH] pass expected actual to assertEqual --- tests/UnitTest.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/UnitTest.hs b/tests/UnitTest.hs index 8ecff8d..4948cd1 100644 --- a/tests/UnitTest.hs +++ b/tests/UnitTest.hs @@ -23,8 +23,8 @@ test2 = TestCase $ Left err -> assertFailure (displayException err) Right (p:ps) -> assertEqual "matches lat/lon" - (Track.pos p) (Track.Pos 51.0 (-0.1)) + (Track.pos p) tests :: Test tests = TestList [