remove TestLabels
they were only there because we cargo-culted them
This commit is contained in:
parent
d81099075a
commit
a65c7fb8a9
@ -17,14 +17,12 @@ onepointEle =
|
||||
\</trkpt> \n\
|
||||
\</trkseg> </trk> </gpx>"
|
||||
|
||||
test1 :: Test
|
||||
test1 = TestCase $
|
||||
case Track.parse "<gpx></gpx>" of
|
||||
Left err -> assertFailure (displayException err)
|
||||
Right t -> assertEqual "empty track has no elements"
|
||||
0 (Track.length t)
|
||||
|
||||
testMalformed :: Test
|
||||
testMalformed = TestCase $
|
||||
case Track.parse "<gpx><dgdsfg>></gpx>" of
|
||||
Left err -> assertBool "syntax error" True
|
||||
@ -57,11 +55,11 @@ test4 = TestCase $
|
||||
|
||||
tests :: Test
|
||||
tests = TestList [
|
||||
TestLabel "test1" test1,
|
||||
test1,
|
||||
testMalformed,
|
||||
TestLabel "test2" test2,
|
||||
TestLabel "test3" test3,
|
||||
TestLabel "test4" test4
|
||||
test2,
|
||||
test3,
|
||||
test4
|
||||
]
|
||||
|
||||
main :: IO ()
|
||||
|
Loading…
Reference in New Issue
Block a user