souplesse

commit a65c7fb8a999c177ec07130c2594aa86d2dc0318
parent d81099075ac5e374f87fe4bd4ec5b3b1845bf115
Author: Daniel Barlow <dan@telent.net>
Date:   Tue, 29 Oct 2024 21:47:36 +0000

remove TestLabels

they were only there because we cargo-culted them

Diffstat:
M
tests/UnitTest.hs
 | 
10
++++------

1 file changed, 4 insertions(+), 6 deletions(-)
diff --git a/tests/UnitTest.hs b/tests/UnitTest.hs
@@ -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 ()