mirror of
https://github.com/dillonkearns/elm-pages-v3-beta.git
synced 2024-12-23 11:55:41 +03:00
245 lines
9.2 KiB
Elm
245 lines
9.2 KiB
Elm
module ApiRouteTests exposing (all)
|
|
|
|
import ApiRoute exposing (..)
|
|
import BackendTask
|
|
import Expect
|
|
import FatalError
|
|
import Internal.ApiRoute exposing (tryMatch, withRoutes)
|
|
import Pattern exposing (Pattern(..))
|
|
import Server.Response
|
|
import Test exposing (Test, describe, test)
|
|
|
|
|
|
all : Test
|
|
all =
|
|
describe "api routes"
|
|
[ test "match top-level file with no extension" <|
|
|
\() ->
|
|
succeed
|
|
(\userId ->
|
|
"Data for user " ++ userId
|
|
)
|
|
|> capture
|
|
|> tryMatch "123"
|
|
|> Expect.equal (Just "Data for user 123")
|
|
, test "file with extension" <|
|
|
\() ->
|
|
succeed
|
|
(\userId ->
|
|
"Data for user " ++ userId
|
|
)
|
|
|> capture
|
|
|> literal ".json"
|
|
|> tryMatch "124.json"
|
|
|> Expect.equal (Just "Data for user 124")
|
|
, test "file path with multiple segments" <|
|
|
\() ->
|
|
succeed
|
|
(\userId ->
|
|
"Data for user " ++ userId
|
|
)
|
|
|> literal "users"
|
|
|> slash
|
|
|> capture
|
|
|> literal ".json"
|
|
|> tryMatch "users/123.json"
|
|
|> Expect.equal (Just "Data for user 123")
|
|
, test "integer matcher" <|
|
|
\() ->
|
|
succeed
|
|
(\userId ->
|
|
"Data for user " ++ userId
|
|
)
|
|
|> literal "users"
|
|
|> slash
|
|
|> capture
|
|
|> literal ".json"
|
|
|> tryMatch "users/123.json"
|
|
|> Expect.equal (Just "Data for user 123")
|
|
, test "routes" <|
|
|
\() ->
|
|
succeed
|
|
(\userId ->
|
|
"Data for user " ++ userId
|
|
)
|
|
|> literal "users"
|
|
|> slash
|
|
|> capture
|
|
|> literal ".json"
|
|
|> withRoutes
|
|
(\constructor ->
|
|
[ constructor "100"
|
|
, constructor "101"
|
|
]
|
|
)
|
|
|> Expect.equal
|
|
[ "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" <|
|
|
\() ->
|
|
succeed
|
|
(\request ->
|
|
""
|
|
|> Server.Response.plainText
|
|
|> BackendTask.succeed
|
|
)
|
|
|> literal "no-dynamic-segments.json"
|
|
|> serverRender
|
|
|> Internal.ApiRoute.toPattern
|
|
|> Expect.equal (Pattern [ Pattern.Literal "no-dynamic-segments.json" ] Pattern.NoPendingSlash)
|
|
, test "two literal segments" <|
|
|
\() ->
|
|
succeed
|
|
(\request ->
|
|
""
|
|
|> Server.Response.plainText
|
|
|> BackendTask.succeed
|
|
)
|
|
|> literal "api"
|
|
|> slash
|
|
|> literal "stars"
|
|
|> serverRender
|
|
|> Internal.ApiRoute.toPattern
|
|
|> Expect.equal
|
|
(Pattern
|
|
[ Pattern.Literal "api"
|
|
, Pattern.Literal "stars"
|
|
]
|
|
Pattern.NoPendingSlash
|
|
)
|
|
, test "routes to patterns" <|
|
|
\() ->
|
|
succeed
|
|
(\userId ->
|
|
BackendTask.succeed ("Data for user " ++ userId)
|
|
)
|
|
|> literal "users"
|
|
|> slash
|
|
|> capture
|
|
|> literal ".json"
|
|
|> preRender
|
|
(\route ->
|
|
BackendTask.succeed
|
|
[ route "100"
|
|
, route "101"
|
|
]
|
|
)
|
|
|> Internal.ApiRoute.toPattern
|
|
|> Expect.equal
|
|
(Pattern
|
|
[ Pattern.Literal "users"
|
|
, Pattern.HybridSegment
|
|
( Pattern.Dynamic
|
|
, Pattern.Literal ".json"
|
|
, []
|
|
)
|
|
]
|
|
Pattern.NoPendingSlash
|
|
)
|
|
, test "hybrid route with multiple static segments" <|
|
|
\() ->
|
|
succeed
|
|
(\repo ->
|
|
\request ->
|
|
BackendTask.succeed ("Data for repo " ++ repo |> Server.Response.plainText)
|
|
)
|
|
|> literal "api"
|
|
|> slash
|
|
|> literal "repo"
|
|
|> slash
|
|
|> capture
|
|
|> literal ".json"
|
|
|> serverRender
|
|
|> Internal.ApiRoute.toPattern
|
|
|> Expect.equal
|
|
(Pattern
|
|
[ Pattern.Literal "api"
|
|
, Pattern.Literal "repo"
|
|
, Pattern.HybridSegment
|
|
( Pattern.Dynamic
|
|
, Pattern.Literal ".json"
|
|
, []
|
|
)
|
|
]
|
|
Pattern.NoPendingSlash
|
|
)
|
|
]
|
|
, describe "multi-part"
|
|
[ test "multi-level routes" <|
|
|
\() ->
|
|
succeed
|
|
(\_ _ ->
|
|
"Data for user"
|
|
)
|
|
|> literal "repos"
|
|
|> slash
|
|
|> capture
|
|
|> slash
|
|
|> capture
|
|
|> literal ".json"
|
|
|> withRoutes
|
|
(\a ->
|
|
[ a "dillonkearns" "elm-pages"
|
|
, a "dillonkearns" "elm-markdown"
|
|
]
|
|
)
|
|
|> Expect.equal
|
|
[ "repos/dillonkearns/elm-pages.json"
|
|
, "repos/dillonkearns/elm-markdown.json"
|
|
]
|
|
, test "3-level route" <|
|
|
\() ->
|
|
succeed
|
|
(\username repo branch ->
|
|
[ username, repo, branch ] |> String.join " - "
|
|
)
|
|
|> literal "repos"
|
|
|> slash
|
|
|> capture
|
|
|> slash
|
|
|> capture
|
|
|> slash
|
|
|> capture
|
|
|> withRoutes
|
|
(\constructor ->
|
|
[ constructor "dillonkearns" "elm-pages" "static-files" ]
|
|
)
|
|
|> Expect.equal
|
|
[ "repos/dillonkearns/elm-pages/static-files" ]
|
|
]
|
|
]
|