dan/souplesse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

pass expected actual to assertEqual

Browse Source
This commit is contained in:
Daniel Barlow 2024-10-29 19:57:29 +00:00
parent 6447030949
commit 6099753702
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/UnitTest.hs
View File

@ -23,8 +23,8 @@ test2 = TestCase $
Left err -> assertFailure (displayException err) Left err -> assertFailure (displayException err)
Right (p:ps) -> Right (p:ps) ->
assertEqual "matches lat/lon" assertEqual "matches lat/lon"
(Track.pos p)
(Track.Pos 51.0 (-0.1)) (Track.Pos 51.0 (-0.1))
(Track.pos p)
tests :: Test tests :: Test
tests = TestList [ tests = TestList [