update test1 to work with Either

tests/UnitTest.hs

@@ -7,15 +7,12 @@ import Control.Exception
 import Debug.Trace (trace, traceShow)
 
 
--- test1 :: Test
--- test1 = TestCase $
---         let
---           trk = Track.parse "<gpx></gpx>"
---         in
---           assertEqual "empty track has no elements"
---           0 (Track.length trk)
-
-test3 = TestCase $  assertEqual "empty track has no elements" 1 2
+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)
 
 test2 = TestCase $
         case Track.parse
@@ -30,7 +27,7 @@ test2 = TestCase $
 
 tests :: Test
 tests = TestList [
---  TestLabel "test1" test1,
+  TestLabel "test1" test1,
   TestLabel "test2" test2
   ]