suite : Test
suite =
Sequence.describe "Sample URL"
|> Sequence.map (\_ -> "https://example.com/user/3")
|> Sequence.andThen "should be valid URL"
(\str ->
Url.fromString str
)
|> Sequence.assert "should be parsed correctly"
(\url ->
Url.Parser.parse urlParser url
|> Expect.equal
(RouteUser 3)
)
|> Sequence.run