check we read all <trkseg> not just the first

.. it turns out that elm-xml-decode does this already

src/Track.elm

@@ -2,7 +2,7 @@ module Track exposing (Track, Point, parse)
 
 import Result
 import Xml.Decode as XD exposing (path, list, single, floatAttr, stringAttr)
-import Time -- exposing (utc, toHour, toMinute, toSecond)
+import Time
 import Iso8601
 
 type alias Point =

tests/Fixtures.elm

@@ -1,4 +1,7 @@
-module Fixtures exposing (threepoints)
+module Fixtures exposing (threepoints, threepoints_expected)
+import Track exposing (Track, Point)
+import Time
+
 
 threepoints = """
 <?xml version="1.0" encoding="UTF-8"?>
@@ -43,6 +46,7 @@ xsi:schemaLocation="http://www.topografix.com/GPX/1/1 http://www.topografix.com/
 <cluetrust:distance>1,485.96</cluetrust:distance>
 </gpxtpx:TrackPointExtension></extensions>
 </trkpt>
+<!-- insert-segment -->
 <trkpt lat="51.600697" lon="-0.018064">
 <ele>66.2</ele>
 <time>2024-10-23T08:40:56.231+01:00</time>
@@ -58,3 +62,9 @@ xsi:schemaLocation="http://www.topografix.com/GPX/1/1 http://www.topografix.com/
 </trk>
 </gpx>
 """
+
+threepoints_expected  =
+    [ (Point 51.600643 -0.01856  64.8 (Time.millisToPosix 1729669252256))
+    , (Point 51.600679 -0.018179  65.5 (Time.millisToPosix 1729669255259))
+    , (Point 51.600697 -0.018064 66.2 (Time.millisToPosix 1729669256231))
+    ]

tests/TrackTest.elm

@@ -4,23 +4,25 @@ import Fixtures
 import Track exposing (Track, Point)
 import Test exposing (..)
 import Expect exposing (Expectation)
-import Time
 
 specs: Test
 specs =
     describe "XML Parsing"
-        [ test "it runs" <|
+        [ test "it parses points" <|
+              \_ ->
+              case Track.parse Fixtures.threepoints of
+                  (Ok trk) -> Expect.equalLists Fixtures.threepoints_expected trk
+                  _ -> Expect.fail "not ok"
+        , test "multiple trksegs are coalesced" <|
               \_ ->
               let
-                  r = Track.parse Fixtures.threepoints
+                  xml = String.replace
-                  expected =
+                        "<!-- insert-segment -->"
-                      [ (Point 51.600643 -0.01856  64.8 (Time.millisToPosix 1729669252256))
+                        "</trkseg><trkseg>"
-                      , (Point 51.600679 -0.018179  65.5 (Time.millisToPosix 1729669255259))
+                        Fixtures.threepoints
-                      , (Point 51.600697 -0.018064 66.2 (Time.millisToPosix 1729669256231))
-                      ]
-
               in
-                  case r of
+                  case Track.parse xml of
-                      (Ok trk) -> Expect.equalLists expected trk
+                      (Ok trk) -> Expect.equalLists Fixtures.threepoints_expected trk
                       _ -> Expect.fail "not ok"
+
         ]