dan/souplesse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

elevation is optional in gpx

Browse Source 
(so is nearly everything else, but am doing one thing at a time)
This commit is contained in:
Daniel Barlow 2024-10-24 18:24:03 +01:00
parent 7b8e07d3ba
commit a762245d86
3 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Track.elm
View File

@ -8,7 +8,7 @@ import Iso8601
type alias Point =
{ lat : Float
, lon : Float
, ele : Float
, ele : Maybe Float
, time : Time.Posix
}
@ -25,7 +25,7 @@ timeDecoder = XD.andThen (\ts ->
pointDecoder = XD.map4 Point
(floatAttr "lat")
(floatAttr "lon")
(path ["ele"] (single XD.float))
(XD.maybe (path ["ele"] (single XD.float)))
(path ["time"] (single timeDecoder))

7
tests/Fixtures.elm
View File

@ -1,6 +1,7 @@
module Fixtures exposing (threepoints, threepoints_expected)
import Track exposing (Track, Point)
import Time
import Maybe
threepoints = """
@ -64,7 +65,7 @@ xsi:schemaLocation="http://www.topografix.com/GPX/1/1 http://www.topografix.com/
"""
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))
[ (Point 51.600643 -0.01856 (Just 64.8) (Time.millisToPosix 1729669252256))
, (Point 51.600679 -0.018179 (Just 65.5) (Time.millisToPosix 1729669255259))
, (Point 51.600697 -0.018064 (Just 66.2) (Time.millisToPosix 1729669256231))
]

14
tests/TrackTest.elm
View File

@ -4,6 +4,7 @@ import Fixtures
import Track exposing (Track, Point)
import Test exposing (..)
import Expect exposing (Expectation)
import Time
specs: Test
specs =
@ -13,6 +14,19 @@ specs =
case Track.parse Fixtures.threepoints of
(Ok trk) -> Expect.equalLists Fixtures.threepoints_expected trk
_ -> Expect.fail "not ok"
, test "missing child ele node in track point" <|
\_ ->
let
xml = String.replace
"<ele>64.8</ele>"
""
Fixtures.threepoints
in
case Track.parse xml of
Ok (p::pts) -> Expect.equal p (Point 51.600643 -0.01856 Nothing (Time.millisToPosix 1729669252256))
Ok _ -> Expect.fail "empty list"
(Err f) -> Expect.fail f
, test "multiple trksegs are coalesced" <|
\_ ->
let