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

remove TestLabels

Browse Source 
they were only there because we cargo-culted them
This commit is contained in:
Daniel Barlow 2024-10-29 21:47:36 +00:00
parent d81099075a
commit a65c7fb8a9
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/UnitTest.hs
View File

@ -17,14 +17,12 @@ onepointEle =
\</trkpt> \n\ \</trkpt> \n\
\</trkseg> </trk> </gpx>" \</trkseg> </trk> </gpx>"
test1 :: Test
test1 = TestCase $ test1 = TestCase $
case Track.parse "<gpx></gpx>" of case Track.parse "<gpx></gpx>" of
Left err -> assertFailure (displayException err) Left err -> assertFailure (displayException err)
Right t -> assertEqual "empty track has no elements" Right t -> assertEqual "empty track has no elements"
0 (Track.length t) 0 (Track.length t)
testMalformed :: Test
testMalformed = TestCase $ testMalformed = TestCase $
case Track.parse "<gpx><dgdsfg>></gpx>" of case Track.parse "<gpx><dgdsfg>></gpx>" of
Left err -> assertBool "syntax error" True Left err -> assertBool "syntax error" True
@ -57,11 +55,11 @@ test4 = TestCase $
tests :: Test tests :: Test
tests = TestList [ tests = TestList [
TestLabel "test1" test1, test1,
testMalformed, testMalformed,
TestLabel "test2" test2, test2,
TestLabel "test3" test3, test3,
TestLabel "test4" test4 test4
] ]
main :: IO () main :: IO ()