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 ()