From a65c7fb8a999c177ec07130c2594aa86d2dc0318 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Tue, 29 Oct 2024 21:47:36 +0000
Subject: [PATCH] remove TestLabels

they were only there because we cargo-culted them
---
 tests/UnitTest.hs | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/tests/UnitTest.hs b/tests/UnitTest.hs
index 18e6cd3..49a788d 100644
--- 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 ()