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

Fix getStaticRoutes wiring for tests.

Browse Source
This commit is contained in:
Dillon Kearns 2021-04-16 08:26:59 -07:00
parent d0f3af3a1c
commit d04d670669
1 changed files with 29 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
tests/StaticHttpRequestsTests.elm
View File

@ -53,31 +53,30 @@ all =
]
)
]
, only <|
test "StaticHttp request for initial are resolved" <|
\() ->
start
[ ( [ "post-1" ]
, StaticHttp.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder
--, StaticHttp.succeed 86
)
]
|> ProgramTest.simulateHttpOk
"GET"
"https://my-cms.com/posts"
"""{ "posts": ["post-1"] }"""
|> ProgramTest.simulateHttpOk
"GET"
"https://api.github.com/repos/dillonkearns/elm-pages"
"""{ "stargazer_count": 86 }"""
|> expectSuccess
[ ( "post-1"
, [ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
, """{"stargazer_count":86}"""
)
]
, test "StaticHttp request for initial are resolved" <|
\() ->
start
[ ( [ "post-1" ]
, StaticHttp.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder
--, StaticHttp.succeed 86
)
]
|> ProgramTest.simulateHttpOk
"GET"
"https://my-cms.com/posts"
"""{ "posts": ["post-1"] }"""
|> ProgramTest.simulateHttpOk
"GET"
"https://api.github.com/repos/dillonkearns/elm-pages"
"""{ "stargazer_count": 86 }"""
|> expectSuccess
[ ( "post-1"
, [ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
, """{"stargazer_count":86}"""
)
]
)
]
, test "andThen" <|
\() ->
start
@ -840,8 +839,13 @@ startLowLevel generateFiles documentBodyResult staticHttpCache pages =
, generateFiles = generateFiles
, init = \_ _ _ -> ( (), Cmd.none )
, getStaticRoutes =
StaticHttp.get (Secrets.succeed "https://my-cms.com/posts")
(Decode.field "posts" (Decode.list (Decode.string |> Decode.map Route)))
--StaticHttp.get (Secrets.succeed "https://my-cms.com/posts")
-- (Decode.field "posts" (Decode.list (Decode.string |> Decode.map Route)))
pages
|> List.map Tuple.first
|> List.map (String.join "/")
|> List.map Route
|> StaticHttp.succeed
, urlToRoute = .path >> Route
, update = \_ _ _ _ -> ( (), Cmd.none )
, staticData = \route -> StaticHttp.succeed ()