dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-12-26 13:21:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix tests.

Browse Source
This commit is contained in:
Dillon Kearns 2021-12-30 10:30:58 -08:00
parent 8851ab402d
commit e0ac48f77a
1 changed files with 21 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
tests/ApiRouteTests.elm
View File

@ -5,6 +5,7 @@ import DataSource
import Expect
import Internal.ApiRoute exposing (tryMatch, withRoutes)
import Pattern exposing (Pattern(..))
import Server.Request
import ServerResponse
import Test exposing (Test, describe, test)
@ -79,10 +80,13 @@ all =
[ test "no dynamic segments" <|
\() ->
succeed
(\isAvailable ->
""
|> ServerResponse.stringBody
|> DataSource.succeed
(Server.Request.succeed ()
|> Server.Request.thenRespond
(\() ->
""
|> ServerResponse.stringBody
|> DataSource.succeed
)
)
|> literal "no-dynamic-segments.json"
|> ApiRoute.serverRender
@ -91,10 +95,13 @@ all =
, test "two literal segments" <|
\() ->
ApiRoute.succeed
(\isAvailable ->
""
|> ServerResponse.stringBody
|> DataSource.succeed
(Server.Request.succeed ()
|> Server.Request.thenRespond
(\() ->
""
|> ServerResponse.stringBody
|> DataSource.succeed
)
)
|> ApiRoute.literal "api"
|> ApiRoute.slash
@ -140,8 +147,12 @@ all =
, test "hybrid route with multiple static segments" <|
\() ->
succeed
(\repo isAvailable ->
DataSource.succeed ("Data for repo " ++ repo |> ServerResponse.stringBody)
(\repo ->
Server.Request.succeed ()
|> Server.Request.thenRespond
(\() ->
DataSource.succeed ("Data for repo " ++ repo |> ServerResponse.stringBody)
)
)
|> ApiRoute.literal "api"
|> ApiRoute.slash