dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-11-24 06:54:03 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix ordering for ApiRoute matches.

Browse Source
This commit is contained in:
Dillon Kearns 2022-02-07 08:59:59 -08:00
parent 4e755be53e
commit a39c53de8b
2 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Internal/ApiRoute.elm
View File

@ -66,6 +66,7 @@ pathToMatches path (ApiRouteBuilder _ pattern _ _ _) =
path
|> List.concatMap .submatches
|> List.filterMap identity
|> List.reverse
{-| -}
@ -88,6 +89,7 @@ tryMatch path (ApiRouteBuilder _ pattern handler _ _) =
path
|> List.concatMap .submatches
|> List.filterMap identity
|> List.reverse
in
handler matches
|> Just

32
tests/ApiRouteTests.elm
View File

@ -76,6 +76,38 @@ all =
[ "users/100.json"
, "users/101.json"
]
, test "matches with two dynamic segments" <|
\() ->
succeed
(\author name ->
author ++ " - " ++ name
)
|> literal "package"
|> slash
|> capture
|> slash
|> capture
|> tryMatch "package/dillonkearns/elm-pages"
|> Expect.equal (Just "dillonkearns - elm-pages")
, test "routes with two dynamic segments" <|
\() ->
succeed
(\author name ->
author ++ " - " ++ name
)
|> literal "package"
|> slash
|> capture
|> slash
|> capture
|> withRoutes
(\constructor ->
[ constructor "dillonkearns" "elm-pages"
]
)
|> Expect.equal
[ "package/dillonkearns/elm-pages"
]
, describe "toPattern"
[ test "no dynamic segments" <|
\() ->