pass expected actual to assertEqual

2024-10-29 19:57:29 +00:00 · 2024-10-29 19:57:29 +00:00 · 6099753702
commit 6099753702
parent 6447030949
1 changed files with 1 additions and 1 deletions
--- 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 [