souplesse/tests/TrackTest.elm

module TrackTest exposing (specs)
import Fixtures

import Track exposing (Track, Point)
import Test exposing (..)
import Expect exposing (Expectation)

specs: Test
specs =
    describe "XML Parsing"
        [ test "it runs" <|
              \_ ->
              let
                  r = Track.parse Fixtures.threepoints
                  expected =
                      [ (Point 51.600643 -0.01856)
                      , (Point 51.600679 -0.018179)
                      , (Point 51.600697 -0.018064)
                      ]

              in
                  case r of
                      (Ok trk) -> Expect.equalLists expected trk
                      _ -> Expect.fail "not ok"
        ]