mirror of
https://github.com/dillonkearns/elm-pages-v3-beta.git
synced 2024-12-26 05:13:24 +03:00
1742 lines
79 KiB
Elm
1742 lines
79 KiB
Elm
module StaticHttpRequestsTests exposing (all)
|
|
|
|
import ApiRoute
|
|
import Codec
|
|
import DataSource exposing (DataSource)
|
|
import DataSource.File
|
|
import DataSource.Glob as Glob
|
|
import DataSource.Http
|
|
import Dict
|
|
import Expect
|
|
import Html
|
|
import Json.Decode as JD
|
|
import Json.Encode as Encode
|
|
import OptimizedDecoder as Decode exposing (Decoder)
|
|
import Pages.ContentCache as ContentCache exposing (ContentCache)
|
|
import Pages.Internal.NotFoundReason
|
|
import Pages.Internal.Platform.Cli exposing (..)
|
|
import Pages.Internal.Platform.Effect as Effect exposing (Effect)
|
|
import Pages.Internal.Platform.ToJsPayload as ToJsPayload
|
|
import Pages.Internal.StaticHttpBody as StaticHttpBody
|
|
import Pages.Manifest as Manifest
|
|
import Pages.ProgramConfig exposing (ProgramConfig)
|
|
import Pages.SiteConfig exposing (SiteConfig)
|
|
import Pages.StaticHttp.Request as Request
|
|
import Path
|
|
import ProgramTest exposing (ProgramTest)
|
|
import Regex
|
|
import RenderRequest
|
|
import Secrets
|
|
import SimulatedEffect.Cmd
|
|
import SimulatedEffect.Ports
|
|
import SimulatedEffect.Task
|
|
import Test exposing (Test, describe, test)
|
|
|
|
|
|
all : Test
|
|
all =
|
|
describe "Static Http Requests"
|
|
[ test "initial requests are sent out" <|
|
|
\() ->
|
|
startSimple []
|
|
(DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder)
|
|
|> simulateHttp
|
|
(Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
|
|
"""{ "stargazer_count": 86 }"""
|
|
|> expectSuccess
|
|
[ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
|
|
, """{"stargazer_count":86}"""
|
|
)
|
|
]
|
|
, test "StaticHttp request for initial are resolved" <|
|
|
\() ->
|
|
startSimple
|
|
[ "post-1" ]
|
|
(DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder)
|
|
|> simulateHttp
|
|
(Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
|
|
"""{ "stargazer_count": 86 }"""
|
|
|> expectSuccess
|
|
[ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
|
|
, """{"stargazer_count":86}"""
|
|
)
|
|
]
|
|
, describe "single page renders"
|
|
[ test "single pages that are pre-rendered" <|
|
|
\() ->
|
|
startSimple [ "post-1" ]
|
|
(DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder)
|
|
|> simulateHttp
|
|
(Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
|
|
"""{ "stargazer_count": 86 }"""
|
|
|> ProgramTest.expectOutgoingPortValues
|
|
"toJsPort"
|
|
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
|
|
(\actualPorts ->
|
|
case actualPorts of
|
|
[ ToJsPayload.PageProgress portData ] ->
|
|
portData.is404
|
|
|> Expect.false "Expected page to be found and rendered"
|
|
|
|
_ ->
|
|
Expect.fail <| "Expected exactly 1 port of type PageProgress. Instead, got \n" ++ Debug.toString actualPorts
|
|
)
|
|
, test "data sources are not resolved 404 pages with matching route but not pre-rendered" <|
|
|
\() ->
|
|
startWithRoutes [ "post-2" ]
|
|
[ [ "post-1" ]
|
|
]
|
|
[]
|
|
[ ( [ "post-2" ]
|
|
, DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder
|
|
)
|
|
]
|
|
|> ProgramTest.expectOutgoingPortValues
|
|
"toJsPort"
|
|
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
|
|
(\actualPorts ->
|
|
case actualPorts of
|
|
[ ToJsPayload.PageProgress portData ] ->
|
|
portData.is404
|
|
|> Expect.true "Expected 404 not found page"
|
|
|
|
_ ->
|
|
Expect.fail <| "Expected exactly 1 port of type PageProgress. Instead, got \n" ++ Debug.toString actualPorts
|
|
)
|
|
]
|
|
, test "the stripped JSON from the same request with different decoders is merged so the decoders succeed" <|
|
|
\() ->
|
|
startSimple
|
|
[ "post-1" ]
|
|
(DataSource.map2 Tuple.pair
|
|
(DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages")
|
|
(Decode.field "stargazer_count" Decode.int)
|
|
)
|
|
(DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages")
|
|
(Decode.field "language" Decode.string)
|
|
)
|
|
)
|
|
|> simulateHttp
|
|
(Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
|
|
"""{ "stargazer_count": 86, "language": "Elm" }"""
|
|
|> expectSuccess
|
|
[ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
|
|
, """{"stargazer_count":86,"language":"Elm"}"""
|
|
)
|
|
]
|
|
, test "andThen" <|
|
|
\() ->
|
|
startSimple
|
|
[ "elm-pages" ]
|
|
(DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") (Decode.succeed ())
|
|
|> DataSource.andThen
|
|
(\_ ->
|
|
DataSource.Http.get (Secrets.succeed "NEXT-REQUEST") (Decode.succeed ())
|
|
)
|
|
)
|
|
|> simulateHttp
|
|
(Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
|
|
"""null"""
|
|
|> simulateHttp
|
|
(Secrets.succeed (get "NEXT-REQUEST"))
|
|
"""null"""
|
|
|> expectSuccess
|
|
[ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
|
|
, """null"""
|
|
)
|
|
, ( get "NEXT-REQUEST"
|
|
, """null"""
|
|
)
|
|
]
|
|
, test "andThen chain avoids repeat requests" <|
|
|
\() ->
|
|
let
|
|
getReq : String -> Decoder a -> DataSource a
|
|
getReq url decoder =
|
|
DataSource.Http.request
|
|
(Secrets.succeed (get url))
|
|
decoder
|
|
|
|
pokemonDetailRequest : DataSource ()
|
|
pokemonDetailRequest =
|
|
getReq
|
|
"https://pokeapi.co/api/v2/pokemon/"
|
|
(Decode.list
|
|
(Decode.field "url" Decode.string
|
|
|> Decode.map
|
|
(\url ->
|
|
getReq url
|
|
(Decode.field "image" Decode.string)
|
|
)
|
|
)
|
|
)
|
|
|> DataSource.resolve
|
|
|> DataSource.map (\_ -> ())
|
|
in
|
|
startSimple
|
|
[ "elm-pages" ]
|
|
pokemonDetailRequest
|
|
|> simulateMultipleHttp
|
|
[ ( Secrets.succeed (get "https://pokeapi.co/api/v2/pokemon/")
|
|
, """[
|
|
{"url": "url1"},
|
|
{"url": "url2"},
|
|
{"url": "url3"},
|
|
{"url": "url4"},
|
|
{"url": "url5"},
|
|
{"url": "url6"},
|
|
{"url": "url7"},
|
|
{"url": "url8"},
|
|
{"url": "url9"},
|
|
{"url": "url10"}
|
|
]"""
|
|
)
|
|
, ( Secrets.succeed (get "url1")
|
|
, """{"image": "image1.jpg"}"""
|
|
)
|
|
, ( Secrets.succeed (get "url2")
|
|
, """{"image": "image2.jpg"}"""
|
|
)
|
|
, ( Secrets.succeed (get "url3")
|
|
, """{"image": "image3.jpg"}"""
|
|
)
|
|
, ( Secrets.succeed (get "url4")
|
|
, """{"image": "image4.jpg"}"""
|
|
)
|
|
, ( Secrets.succeed (get "url5")
|
|
, """{"image": "image5.jpg"}"""
|
|
)
|
|
, ( Secrets.succeed (get "url6")
|
|
, """{"image": "image6.jpg"}"""
|
|
)
|
|
, ( Secrets.succeed (get "url7")
|
|
, """{"image": "image7.jpg"}"""
|
|
)
|
|
, ( Secrets.succeed (get "url8")
|
|
, """{"image": "image8.jpg"}"""
|
|
)
|
|
, ( Secrets.succeed (get "url9")
|
|
, """{"image": "image9.jpg"}"""
|
|
)
|
|
, ( Secrets.succeed (get "url10")
|
|
, """{"image": "image10.jpg"}"""
|
|
)
|
|
]
|
|
|> expectSuccess
|
|
[ ( get "https://pokeapi.co/api/v2/pokemon/"
|
|
, """[{"url":"url1"},{"url":"url2"},{"url":"url3"},{"url":"url4"},{"url":"url5"},{"url":"url6"},{"url":"url7"},{"url":"url8"},{"url":"url9"},{"url":"url10"}]"""
|
|
)
|
|
, ( get "url1"
|
|
, """{"image":"image1.jpg"}"""
|
|
)
|
|
, ( get "url2"
|
|
, """{"image":"image2.jpg"}"""
|
|
)
|
|
, ( get "url3"
|
|
, """{"image":"image3.jpg"}"""
|
|
)
|
|
, ( get "url4"
|
|
, """{"image":"image4.jpg"}"""
|
|
)
|
|
, ( get "url5"
|
|
, """{"image":"image5.jpg"}"""
|
|
)
|
|
, ( get "url6"
|
|
, """{"image":"image6.jpg"}"""
|
|
)
|
|
, ( get "url7"
|
|
, """{"image":"image7.jpg"}"""
|
|
)
|
|
, ( get "url8"
|
|
, """{"image":"image8.jpg"}"""
|
|
)
|
|
, ( get "url9"
|
|
, """{"image":"image9.jpg"}"""
|
|
)
|
|
, ( get "url10"
|
|
, """{"image":"image10.jpg"}"""
|
|
)
|
|
]
|
|
|
|
--, test "port is sent out once all requests are finished" <|
|
|
-- \() ->
|
|
-- start
|
|
-- [ ( [ "elm-pages" ]
|
|
-- , DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder
|
|
-- )
|
|
-- , ( [ "elm-pages-starter" ]
|
|
-- , DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages-starter") starDecoder
|
|
-- )
|
|
-- ]
|
|
-- |> ProgramTest.simulateHttpOk
|
|
-- "GET"
|
|
-- "https://api.github.com/repos/dillonkearns/elm-pages"
|
|
-- """{ "stargazer_count": 86 }"""
|
|
-- |> ProgramTest.simulateHttpOk
|
|
-- "GET"
|
|
-- "https://api.github.com/repos/dillonkearns/elm-pages-starter"
|
|
-- """{ "stargazer_count": 22 }"""
|
|
-- |> expectSuccess
|
|
-- [ ( "elm-pages"
|
|
-- , [ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
|
|
-- , """{"stargazer_count":86}"""
|
|
-- )
|
|
-- ]
|
|
-- )
|
|
-- , ( "elm-pages-starter"
|
|
-- , [ ( get "https://api.github.com/repos/dillonkearns/elm-pages-starter"
|
|
-- , """{"stargazer_count":22}"""
|
|
-- )
|
|
-- ]
|
|
-- )
|
|
-- ]
|
|
, test "reduced JSON is sent out" <|
|
|
\() ->
|
|
startSimple []
|
|
(DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") (Decode.field "stargazer_count" Decode.int))
|
|
|> simulateHttp
|
|
(Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
|
|
"""{ "stargazer_count": 86, "unused_field": 123 }"""
|
|
|> expectSuccess
|
|
[ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
|
|
, """{"stargazer_count":86}"""
|
|
)
|
|
]
|
|
, test "you can use elm/json decoders with StaticHttp.unoptimizedRequest" <|
|
|
\() ->
|
|
startSimple []
|
|
(DataSource.Http.unoptimizedRequest
|
|
(Secrets.succeed
|
|
{ url = "https://api.github.com/repos/dillonkearns/elm-pages"
|
|
, method = "GET"
|
|
, headers = []
|
|
, body = DataSource.Http.emptyBody
|
|
}
|
|
)
|
|
(DataSource.Http.expectUnoptimizedJson
|
|
(JD.field "stargazer_count" JD.int)
|
|
)
|
|
)
|
|
|> simulateHttp
|
|
(Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
|
|
"""{ "stargazer_count": 86, "unused_field": 123 }"""
|
|
|> expectSuccess
|
|
[ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
|
|
, """{ "stargazer_count": 86, "unused_field": 123 }"""
|
|
)
|
|
]
|
|
, test "plain string" <|
|
|
\() ->
|
|
startSimple []
|
|
(DataSource.Http.unoptimizedRequest
|
|
(Secrets.succeed
|
|
{ url = "https://example.com/file.txt"
|
|
, method = "GET"
|
|
, headers = []
|
|
, body = DataSource.Http.emptyBody
|
|
}
|
|
)
|
|
(DataSource.Http.expectString Ok)
|
|
)
|
|
|> simulateHttp
|
|
(Secrets.succeed (get "https://example.com/file.txt"))
|
|
"This is a raw text file."
|
|
|> expectSuccess
|
|
[ ( get "https://example.com/file.txt"
|
|
, "This is a raw text file."
|
|
)
|
|
]
|
|
, test "Err in String to Result function turns into decode error" <|
|
|
\() ->
|
|
startSimple []
|
|
(DataSource.Http.unoptimizedRequest
|
|
(Secrets.succeed
|
|
{ url = "https://example.com/file.txt"
|
|
, method = "GET"
|
|
, headers = []
|
|
, body = DataSource.Http.emptyBody
|
|
}
|
|
)
|
|
(DataSource.Http.expectString
|
|
(\string ->
|
|
if String.toUpper string == string then
|
|
Ok string
|
|
|
|
else
|
|
Err "String was not uppercased"
|
|
)
|
|
)
|
|
)
|
|
|> simulateHttp
|
|
(Secrets.succeed (get "https://example.com/file.txt"))
|
|
"This is a raw text file."
|
|
|> ProgramTest.expectOutgoingPortValues
|
|
"toJsPort"
|
|
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
|
|
(expectErrorsPort
|
|
"""-- STATIC HTTP DECODING ERROR ----------------------------------------------------- elm-pages
|
|
|
|
|
|
|
|
String was not uppercased"""
|
|
)
|
|
, test "POST method works" <|
|
|
\() ->
|
|
startSimple []
|
|
(DataSource.Http.request
|
|
(Secrets.succeed
|
|
{ method = "POST"
|
|
, url = "https://api.github.com/repos/dillonkearns/elm-pages"
|
|
, headers = []
|
|
, body = DataSource.Http.emptyBody
|
|
}
|
|
)
|
|
(Decode.field "stargazer_count" Decode.int)
|
|
)
|
|
|> simulateHttp
|
|
(Secrets.succeed (post "https://api.github.com/repos/dillonkearns/elm-pages"))
|
|
"""{ "stargazer_count": 86, "unused_field": 123 }"""
|
|
|> expectSuccess
|
|
[ ( { method = "POST"
|
|
, url = "https://api.github.com/repos/dillonkearns/elm-pages"
|
|
, headers = []
|
|
, body = DataSource.Http.emptyBody
|
|
}
|
|
, """{"stargazer_count":86}"""
|
|
)
|
|
]
|
|
, test "json is reduced from andThen chains" <|
|
|
\() ->
|
|
startSimple []
|
|
(DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") (Decode.field "stargazer_count" Decode.int)
|
|
|> DataSource.andThen
|
|
(\_ ->
|
|
DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages-starter") (Decode.field "stargazer_count" Decode.int)
|
|
)
|
|
)
|
|
|> simulateHttp
|
|
(Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
|
|
"""{ "stargazer_count": 100, "unused_field": 123 }"""
|
|
|> simulateHttp
|
|
(Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages-starter"))
|
|
"""{ "stargazer_count": 50, "unused_field": 456 }"""
|
|
|> expectSuccess
|
|
[ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
|
|
, """{"stargazer_count":100}"""
|
|
)
|
|
, ( get "https://api.github.com/repos/dillonkearns/elm-pages-starter"
|
|
, """{"stargazer_count":50}"""
|
|
)
|
|
]
|
|
, test "reduced json is preserved by StaticHttp.map2" <|
|
|
\() ->
|
|
startSimple []
|
|
(DataSource.map2 (\_ _ -> ())
|
|
(DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") (Decode.field "stargazer_count" Decode.int))
|
|
(DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages-starter") (Decode.field "stargazer_count" Decode.int))
|
|
)
|
|
|> simulateMultipleHttp
|
|
[ ( Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages")
|
|
, """{ "stargazer_count": 100, "unused_field": 123 }"""
|
|
)
|
|
, ( Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages-starter")
|
|
, """{ "stargazer_count": 50, "unused_field": 456 }"""
|
|
)
|
|
]
|
|
|> expectSuccess
|
|
[ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
|
|
, """{"stargazer_count":100}"""
|
|
)
|
|
, ( get "https://api.github.com/repos/dillonkearns/elm-pages-starter"
|
|
, """{"stargazer_count":50}"""
|
|
)
|
|
]
|
|
, test "the port sends out even if there are no http requests" <|
|
|
\() ->
|
|
start
|
|
[ ( []
|
|
, DataSource.succeed ()
|
|
)
|
|
]
|
|
|> expectSuccess []
|
|
, test "the port sends out when there are duplicate http requests for the same page" <|
|
|
\() ->
|
|
startSimple []
|
|
(DataSource.map2 (\_ _ -> ())
|
|
(DataSource.Http.get (Secrets.succeed "http://example.com") (Decode.succeed ()))
|
|
(DataSource.Http.get (Secrets.succeed "http://example.com") (Decode.succeed ()))
|
|
)
|
|
|> simulateHttp
|
|
(Secrets.succeed (get "http://example.com"))
|
|
"""null"""
|
|
|> expectSuccess
|
|
[ ( get "http://example.com"
|
|
, """null"""
|
|
)
|
|
]
|
|
, test "an error is sent out for decoder failures" <|
|
|
\() ->
|
|
startSimple [ "elm-pages" ]
|
|
(DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") (Decode.fail "The user should get this message from the CLI."))
|
|
|> simulateHttp
|
|
(Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
|
|
"""{ "stargazer_count": 86 }"""
|
|
|> ProgramTest.expectOutgoingPortValues
|
|
"toJsPort"
|
|
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
|
|
(expectErrorsPort
|
|
"""-- STATIC HTTP DECODING ERROR ----------------------------------------------------- elm-pages
|
|
|
|
I encountered some errors while decoding this JSON:
|
|
|
|
The user should get this message from the CLI.
|
|
|
|
{
|
|
"stargazer_count": 86
|
|
}"""
|
|
)
|
|
, test "an error is sent for missing secrets from continuation requests" <|
|
|
\() ->
|
|
startSimple
|
|
[ "elm-pages" ]
|
|
(DataSource.Http.get
|
|
(Secrets.succeed
|
|
(\apiKey ->
|
|
"https://api.github.com/repos/dillonkearns/elm-pages?apiKey=" ++ apiKey
|
|
)
|
|
|> Secrets.with "API_KEY"
|
|
)
|
|
Decode.string
|
|
|> DataSource.andThen
|
|
(\url ->
|
|
DataSource.Http.get
|
|
(Secrets.succeed
|
|
(\missingSecret ->
|
|
url ++ "?apiKey=" ++ missingSecret
|
|
)
|
|
|> Secrets.with "MISSING"
|
|
)
|
|
(Decode.succeed ())
|
|
)
|
|
)
|
|
|> simulateHttp
|
|
(Secrets.succeed
|
|
(\apiKey ->
|
|
get
|
|
("https://api.github.com/repos/dillonkearns/elm-pages?apiKey=" ++ apiKey)
|
|
)
|
|
|> Secrets.with "API_KEY"
|
|
)
|
|
""" "continuation-url" """
|
|
|> ProgramTest.expectOutgoingPortValues
|
|
"toJsPort"
|
|
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
|
|
(expectErrorsPort
|
|
"""-- MISSING SECRET ----------------------------------------------------- elm-pages
|
|
|
|
I expected to find this Secret in your environment variables but didn't find a match:
|
|
|
|
Secrets.get "MISSING"
|
|
^^^^^^^
|
|
|
|
So maybe MISSING should be API_KEY"""
|
|
)
|
|
, test "uses real secrets to perform request and masked secrets to store and lookup response" <|
|
|
\() ->
|
|
startSimple []
|
|
(DataSource.Http.request
|
|
(Secrets.succeed
|
|
(\apiKey bearer ->
|
|
{ url = "https://api.github.com/repos/dillonkearns/elm-pages?apiKey=" ++ apiKey
|
|
, method = "GET"
|
|
, headers = [ ( "Authorization", "Bearer " ++ bearer ) ]
|
|
, body = DataSource.Http.emptyBody
|
|
}
|
|
)
|
|
|> Secrets.with "API_KEY"
|
|
|> Secrets.with "BEARER"
|
|
)
|
|
(Decode.succeed ())
|
|
)
|
|
|> simulateHttpAssert
|
|
(Secrets.succeed
|
|
(\apiKey bearer ->
|
|
{ url = "https://api.github.com/repos/dillonkearns/elm-pages?apiKey=" ++ apiKey
|
|
, method = "GET"
|
|
, headers = [ ( "Authorization", "Bearer " ++ bearer ) ]
|
|
, body = DataSource.Http.emptyBody
|
|
}
|
|
)
|
|
|> Secrets.with "API_KEY"
|
|
|> Secrets.with "BEARER"
|
|
)
|
|
"""{ "stargazer_count": 86 }"""
|
|
(Expect.all
|
|
[ \requests ->
|
|
requests.unmasked.headers
|
|
|> Expect.equal [ ( "Authorization", "Bearer XYZ789" ) ]
|
|
, \requests ->
|
|
requests.unmasked.url
|
|
|> Expect.equal "https://api.github.com/repos/dillonkearns/elm-pages?apiKey=ABCD1234"
|
|
]
|
|
)
|
|
|> expectSuccess
|
|
[ ( { method = "GET"
|
|
, url = "https://api.github.com/repos/dillonkearns/elm-pages?apiKey=<API_KEY>"
|
|
, headers =
|
|
[ ( "Authorization", "Bearer <BEARER>" )
|
|
]
|
|
, body = DataSource.Http.emptyBody
|
|
}
|
|
, """{}"""
|
|
)
|
|
]
|
|
, describe "staticHttpCache"
|
|
[ test "it doesn't perform http requests that are provided in the http cache flag" <|
|
|
\() ->
|
|
startWithHttpCache
|
|
[ ( { url = "https://api.github.com/repos/dillonkearns/elm-pages"
|
|
, method = "GET"
|
|
, headers = []
|
|
, body = StaticHttpBody.EmptyBody
|
|
}
|
|
, """{"stargazer_count":86}"""
|
|
)
|
|
]
|
|
[ ( []
|
|
, DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder
|
|
)
|
|
]
|
|
|> expectSuccess
|
|
[ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
|
|
, """{"stargazer_count":86}"""
|
|
)
|
|
]
|
|
, test "it ignores unused cache" <|
|
|
\() ->
|
|
startSimpleWithCache []
|
|
(DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder)
|
|
[ ( { url = "https://this-is-never-used.example.com/"
|
|
, method = "GET"
|
|
, headers = []
|
|
, body = StaticHttpBody.EmptyBody
|
|
}
|
|
, """{"stargazer_count":86}"""
|
|
)
|
|
]
|
|
|> simulateHttp
|
|
(Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
|
|
"""{ "stargazer_count": 86 }"""
|
|
|> expectSuccess
|
|
[ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
|
|
, """{"stargazer_count":86}"""
|
|
)
|
|
]
|
|
, test "validate DataSource is not stored for any pages" <|
|
|
\() ->
|
|
startSimple [ "hello" ]
|
|
(DataSource.succeed "hello"
|
|
|> DataSource.validate identity
|
|
(\word ->
|
|
DataSource.Http.get (Secrets.succeed ("https://api.spellchecker.com?word=" ++ word))
|
|
(Decode.field "isCorrect" Decode.bool
|
|
|> Decode.map
|
|
(\isCorrect ->
|
|
if isCorrect then
|
|
Ok ()
|
|
|
|
else
|
|
Err "Spelling error"
|
|
)
|
|
)
|
|
)
|
|
|> DataSource.map (\_ -> ())
|
|
)
|
|
|> simulateHttp
|
|
(Secrets.succeed (get "https://api.spellchecker.com?word=hello"))
|
|
"""{ "isCorrect": true }"""
|
|
|> ProgramTest.expectOutgoingPortValues
|
|
"toJsPort"
|
|
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
|
|
(\actualPorts ->
|
|
case actualPorts of
|
|
[ ToJsPayload.PageProgress portData ] ->
|
|
portData.contentJson
|
|
|> Expect.equalDicts Dict.empty
|
|
|
|
_ ->
|
|
Expect.fail <| "Expected exactly 1 port of type PageProgress. Instead, got \n" ++ Debug.toString actualPorts
|
|
)
|
|
, test "distill stores encoded JSON but not original DataSource" <|
|
|
\() ->
|
|
startSimple [ "hello" ]
|
|
(DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder
|
|
|> DataSource.distill "abc123" Encode.int (JD.decodeValue JD.int >> Result.mapError JD.errorToString)
|
|
|> DataSource.map (\_ -> ())
|
|
)
|
|
|> simulateHttp
|
|
(Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
|
|
"""{ "stargazer_count": 86 }"""
|
|
|> ProgramTest.expectOutgoingPortValues
|
|
"toJsPort"
|
|
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
|
|
(\actualPorts ->
|
|
case actualPorts of
|
|
[ ToJsPayload.PageProgress portData ] ->
|
|
portData.contentJson
|
|
|> Expect.equalDicts (Dict.fromList [ ( "abc123", "86" ) ])
|
|
|
|
_ ->
|
|
Expect.fail <| "Expected exactly 1 port of type PageProgress. Instead, got \n" ++ Debug.toString actualPorts
|
|
)
|
|
, test "distill with andThen chains resolves successfully" <|
|
|
\() ->
|
|
let
|
|
andThenExample : DataSource (List ( String, String ))
|
|
andThenExample =
|
|
Glob.succeed
|
|
identity
|
|
|> Glob.match (Glob.literal "content/glossary/")
|
|
|> Glob.capture Glob.wildcard
|
|
|> Glob.match (Glob.literal ".md")
|
|
|> Glob.toDataSource
|
|
|> DataSource.map
|
|
(List.map
|
|
(\topic ->
|
|
DataSource.File.bodyWithoutFrontmatter ("content/glossary/" ++ topic ++ ".md")
|
|
|> DataSource.map (Tuple.pair topic)
|
|
)
|
|
)
|
|
|> DataSource.resolve
|
|
|> DataSource.map
|
|
(\allNotes ->
|
|
allNotes
|
|
|> List.map
|
|
(\note ->
|
|
DataSource.succeed note
|
|
)
|
|
)
|
|
|> DataSource.resolve
|
|
in
|
|
startWithRoutes [ "hello" ]
|
|
[ [ "hello" ] ]
|
|
[]
|
|
[ ( [ "hello" ]
|
|
, andThenExample
|
|
|> DataSource.map (\_ -> ())
|
|
)
|
|
]
|
|
|> ProgramTest.ensureOutgoingPortValues
|
|
"toJsPort"
|
|
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
|
|
(\actualPorts ->
|
|
case actualPorts of
|
|
[ ToJsPayload.Glob _ ] ->
|
|
Expect.pass
|
|
|
|
_ ->
|
|
Expect.fail <|
|
|
"Expected a glob, but got\n"
|
|
++ (actualPorts
|
|
|> List.indexedMap
|
|
(\index item -> "(" ++ String.fromInt (index + 1) ++ ") " ++ Debug.toString item)
|
|
|> String.join "\n\n"
|
|
)
|
|
++ "\n\n"
|
|
)
|
|
|> ProgramTest.simulateIncomingPort "fromJsPort"
|
|
(Encode.object
|
|
[ ( "tag", Encode.string "GotGlob" )
|
|
, ( "data"
|
|
, Encode.object
|
|
[ ( "pattern", Encode.string "content/glossary/*.md" )
|
|
, ( "result", Encode.list Encode.string [ "content/glossary/hello.md" ] )
|
|
]
|
|
)
|
|
]
|
|
)
|
|
|> ProgramTest.ensureOutgoingPortValues
|
|
"toJsPort"
|
|
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
|
|
(\actualPorts ->
|
|
case actualPorts of
|
|
[ ToJsPayload.ReadFile _ ] ->
|
|
Expect.pass
|
|
|
|
_ ->
|
|
Expect.fail <|
|
|
"Expected a ReadFile, but got\n"
|
|
++ (actualPorts
|
|
|> List.indexedMap
|
|
(\index item -> "(" ++ String.fromInt (index + 1) ++ ") " ++ Debug.toString item)
|
|
|> String.join "\n\n"
|
|
)
|
|
++ "\n\n"
|
|
)
|
|
|> ProgramTest.simulateIncomingPort "fromJsPort"
|
|
(Encode.object
|
|
[ ( "tag", Encode.string "GotFile" )
|
|
, ( "data"
|
|
, Encode.object
|
|
[ ( "filePath", Encode.string "content/glossary/hello.md" )
|
|
, ( "withoutFrontmatter", Encode.string "BODY" )
|
|
]
|
|
)
|
|
]
|
|
)
|
|
|> ProgramTest.expectOutgoingPortValues
|
|
"toJsPort"
|
|
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
|
|
(\actualPorts ->
|
|
case actualPorts of
|
|
[ {- ToJsPayload.Glob _, ToJsPayload.ReadFile _ -} ToJsPayload.PageProgress portData ] ->
|
|
portData.contentJson
|
|
|> Expect.equalDicts
|
|
(Dict.fromList
|
|
[ ( Request.hash
|
|
{ method = "GET"
|
|
, url = "file://content/glossary/hello.md"
|
|
, headers = []
|
|
, body = DataSource.Http.emptyBody
|
|
}
|
|
, "{\"withoutFrontmatter\":\"BODY\"}"
|
|
)
|
|
, ( Request.hash
|
|
{ method = "GET"
|
|
, url = "glob://content/glossary/*.md"
|
|
, headers = []
|
|
, body = DataSource.Http.emptyBody
|
|
}
|
|
, "[\"content/glossary/hello.md\"]"
|
|
)
|
|
]
|
|
)
|
|
|
|
_ ->
|
|
Expect.fail <|
|
|
"Expected exactly 1 port of type PageProgress. Instead, got \n\n"
|
|
++ (actualPorts
|
|
|> List.indexedMap
|
|
(\index item -> "(" ++ String.fromInt (index + 1) ++ ") " ++ Debug.toString item)
|
|
|> String.join "\n\n"
|
|
)
|
|
++ "\n\n"
|
|
)
|
|
, test "distill successfully merges data sources with same key and same encoded JSON" <|
|
|
\() ->
|
|
startSimple [ "hello" ]
|
|
(DataSource.map2 (\_ _ -> ())
|
|
(DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder
|
|
|> DataSource.distill "abc123" Encode.int (JD.decodeValue JD.int >> Result.mapError JD.errorToString)
|
|
)
|
|
(DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder
|
|
|> DataSource.distill "abc123" Encode.int (JD.decodeValue JD.int >> Result.mapError JD.errorToString)
|
|
)
|
|
)
|
|
|> simulateHttp
|
|
(Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages"))
|
|
"""{ "stargazer_count": 86 }"""
|
|
|> ProgramTest.expectOutgoingPortValues
|
|
"toJsPort"
|
|
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
|
|
(\actualPorts ->
|
|
case actualPorts of
|
|
[ ToJsPayload.PageProgress portData ] ->
|
|
portData.contentJson
|
|
|> Expect.equalDicts (Dict.fromList [ ( "abc123", "86" ) ])
|
|
|
|
_ ->
|
|
Expect.fail <| "Expected exactly 1 port of type PageProgress. Instead, got \n" ++ Debug.toString actualPorts
|
|
)
|
|
, test "distill gives an error if there are matching keys with different encoded JSON" <|
|
|
\() ->
|
|
startSimple [ "hello" ]
|
|
(DataSource.map2 (\_ _ -> ())
|
|
(DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder
|
|
|> DataSource.distill "stars" Encode.int (JD.decodeValue JD.int >> Result.mapError JD.errorToString)
|
|
)
|
|
(DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-markdown") starDecoder
|
|
|> DataSource.distill "stars" Encode.int (JD.decodeValue JD.int >> Result.mapError JD.errorToString)
|
|
)
|
|
)
|
|
|> simulateMultipleHttp
|
|
[ ( Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-pages")
|
|
, """{ "stargazer_count": 86 }"""
|
|
)
|
|
, ( Secrets.succeed (get "https://api.github.com/repos/dillonkearns/elm-markdown")
|
|
, """{ "stargazer_count": 123 }"""
|
|
)
|
|
]
|
|
|> ProgramTest.expectOutgoingPortValues
|
|
"toJsPort"
|
|
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
|
|
(expectErrorsPort """-- NON-UNIQUE DISTILL KEYS ----------------------------------------------------- elm-pages
|
|
I encountered DataSource.distill with two matching keys that had differing encoded values.
|
|
|
|
Look for DataSource.distill with the key "stars"
|
|
|
|
The first encoded value was:
|
|
123
|
|
-------------------------------
|
|
The second encoded value was:
|
|
|
|
86""")
|
|
]
|
|
|
|
--, describe "generateFiles"
|
|
-- [ test "initial requests are sent out" <|
|
|
-- \() ->
|
|
-- startLowLevel
|
|
-- [ ApiRoute.succeed
|
|
-- (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages")
|
|
-- (starDecoder
|
|
-- |> Decode.map
|
|
-- (\starCount ->
|
|
-- { body = "Star count: " ++ String.fromInt starCount
|
|
-- }
|
|
-- )
|
|
-- )
|
|
-- )
|
|
-- |> ApiRoute.literal "test.txt"
|
|
-- |> ApiRoute.single
|
|
-- ]
|
|
-- []
|
|
-- []
|
|
-- |> ProgramTest.simulateHttpOk
|
|
-- "GET"
|
|
-- "https://api.github.com/repos/dillonkearns/elm-pages"
|
|
-- """{ "stargazer_count": 86 }"""
|
|
-- |> expectSuccessNew
|
|
-- []
|
|
-- [ \success ->
|
|
-- success.filesToGenerate
|
|
-- |> Expect.equal
|
|
-- [ { path = [ "test.txt" ]
|
|
-- , content = "Star count: 86"
|
|
-- }
|
|
-- ]
|
|
-- ]
|
|
-- , test "it sends success port when no HTTP requests are needed because they're all cached" <|
|
|
-- \() ->
|
|
-- startLowLevel
|
|
-- [ ApiRoute.succeed
|
|
-- (DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages-starter")
|
|
-- (starDecoder
|
|
-- |> Decode.map
|
|
-- (\starCount ->
|
|
-- { body = "Star count: " ++ String.fromInt starCount
|
|
-- }
|
|
-- )
|
|
-- )
|
|
-- )
|
|
-- |> ApiRoute.literal "test.txt"
|
|
-- |> ApiRoute.single
|
|
-- ]
|
|
-- [ ( { url = "https://api.github.com/repos/dillonkearns/elm-pages"
|
|
-- , method = "GET"
|
|
-- , headers = []
|
|
-- , body = StaticHttpBody.EmptyBody
|
|
-- }
|
|
-- , """{"stargazer_count":86}"""
|
|
-- )
|
|
-- , ( { url = "https://api.github.com/repos/dillonkearns/elm-pages-starter"
|
|
-- , method = "GET"
|
|
-- , headers = []
|
|
-- , body = StaticHttpBody.EmptyBody
|
|
-- }
|
|
-- , """{"stargazer_count":23}"""
|
|
-- )
|
|
-- ]
|
|
-- [ ( []
|
|
-- , DataSource.Http.get (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages") starDecoder
|
|
-- )
|
|
-- ]
|
|
-- |> expectSuccessNew
|
|
-- [ ( ""
|
|
-- , [ ( get "https://api.github.com/repos/dillonkearns/elm-pages"
|
|
-- , """{"stargazer_count":86}"""
|
|
-- )
|
|
-- ]
|
|
-- )
|
|
-- ]
|
|
-- [ \success ->
|
|
-- success.filesToGenerate
|
|
-- |> Expect.equal
|
|
-- [ { path = [ "test.txt" ]
|
|
-- , content = "Star count: 23"
|
|
-- }
|
|
-- ]
|
|
-- ]
|
|
-- ]
|
|
]
|
|
|
|
|
|
type Route
|
|
= Route String
|
|
|
|
|
|
start : List ( List String, DataSource a ) -> ProgramTest (Model Route) Msg Effect
|
|
start pages =
|
|
startWithHttpCache [] pages
|
|
|
|
|
|
startWithHttpCache :
|
|
List ( Request.Request, String )
|
|
-> List ( List String, DataSource a )
|
|
-> ProgramTest (Model Route) Msg Effect
|
|
startWithHttpCache =
|
|
startLowLevel []
|
|
|
|
|
|
startLowLevel :
|
|
List (ApiRoute.ApiRoute ApiRoute.Response)
|
|
-> List ( Request.Request, String )
|
|
-> List ( List String, DataSource a )
|
|
-> ProgramTest (Model Route) Msg Effect
|
|
startLowLevel apiRoutes staticHttpCache pages =
|
|
let
|
|
contentCache : ContentCache
|
|
contentCache =
|
|
ContentCache.init Nothing
|
|
|
|
pageToLoad : List String
|
|
pageToLoad =
|
|
case pages |> List.head |> Maybe.map Tuple.first of
|
|
Just justPageToLoad ->
|
|
justPageToLoad
|
|
|
|
Nothing ->
|
|
Debug.todo "Error - no pages"
|
|
|
|
config : ProgramConfig Msg () Route () () ()
|
|
config =
|
|
{ toJsPort = toJsPort
|
|
, fromJsPort = fromJsPort
|
|
, init = \_ _ _ _ _ -> ( (), Cmd.none )
|
|
, getStaticRoutes =
|
|
--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
|
|
|> DataSource.succeed
|
|
, handleRoute = \_ -> DataSource.succeed Nothing
|
|
, urlToRoute = .path >> Route
|
|
, update = \_ _ _ _ _ -> ( (), Cmd.none )
|
|
, basePath = []
|
|
, data =
|
|
\(Route pageRoute) ->
|
|
let
|
|
thing : Maybe (DataSource a)
|
|
thing =
|
|
pages
|
|
|> Dict.fromList
|
|
|> Dict.get
|
|
(pageRoute
|
|
|> String.split "/"
|
|
|> List.filter (\pathPart -> pathPart /= "")
|
|
)
|
|
in
|
|
case thing of
|
|
Just request ->
|
|
request |> DataSource.map (\_ -> ())
|
|
|
|
Nothing ->
|
|
Debug.todo <| "Couldn't find page: " ++ pageRoute ++ "\npages: " ++ Debug.toString pages
|
|
, site = Just site
|
|
, view =
|
|
\page _ ->
|
|
let
|
|
thing : Maybe (DataSource a)
|
|
thing =
|
|
pages
|
|
|> Dict.fromList
|
|
|> Dict.get
|
|
(page.path |> Path.toSegments)
|
|
in
|
|
case thing of
|
|
Just _ ->
|
|
\_ _ -> { view = \_ -> { title = "Title", body = Html.text "" }, head = [] }
|
|
|
|
Nothing ->
|
|
Debug.todo <| "Couldn't find page: " ++ Debug.toString page ++ "\npages: " ++ Debug.toString pages
|
|
, subscriptions = \_ _ _ -> Sub.none
|
|
, routeToPath = \(Route route) -> route |> String.split "/"
|
|
, sharedData = DataSource.succeed ()
|
|
, onPageChange = \_ -> Continue
|
|
, apiRoutes = \_ -> apiRoutes
|
|
, pathPatterns = []
|
|
}
|
|
|
|
encodedFlags : Encode.Value
|
|
encodedFlags =
|
|
--{"secrets":
|
|
-- {"API_KEY": "ABCD1234","BEARER": "XYZ789"}, "mode": "prod", "staticHttpCache": {}
|
|
-- }
|
|
Encode.object
|
|
[ ( "secrets"
|
|
, [ ( "API_KEY", "ABCD1234" )
|
|
, ( "BEARER", "XYZ789" )
|
|
]
|
|
|> Dict.fromList
|
|
|> Encode.dict identity Encode.string
|
|
)
|
|
, ( "mode", Encode.string "prod" )
|
|
, ( "staticHttpCache", encodedStaticHttpCache )
|
|
]
|
|
|
|
encodedStaticHttpCache : Encode.Value
|
|
encodedStaticHttpCache =
|
|
staticHttpCache
|
|
|> List.map
|
|
(\( request, httpResponseString ) ->
|
|
( Request.hash request, Encode.string httpResponseString )
|
|
)
|
|
|> Encode.object
|
|
in
|
|
{-
|
|
(Model -> model)
|
|
-> ContentCache.ContentCache metadata view
|
|
-> Result (List BuildError) (List ( PagePath, metadata ))
|
|
-> Config pathKey userMsg userModel metadata view
|
|
-> Decode.Value
|
|
-> ( model, Effect pathKey )
|
|
-}
|
|
ProgramTest.createDocument
|
|
{ init =
|
|
init
|
|
site
|
|
(RenderRequest.SinglePage
|
|
RenderRequest.OnlyJson
|
|
(RenderRequest.Page
|
|
{ path = Path.fromString (pageToLoad |> String.join "/")
|
|
, frontmatter = Route (pageToLoad |> String.join "/")
|
|
}
|
|
)
|
|
(Encode.object [])
|
|
)
|
|
contentCache
|
|
config
|
|
, update = update site contentCache config
|
|
, view = \_ -> { title = "", body = [] }
|
|
}
|
|
|> ProgramTest.withSimulatedEffects simulateEffects
|
|
|> ProgramTest.start (flags (Encode.encode 0 encodedFlags))
|
|
|
|
|
|
site : SiteConfig ()
|
|
site =
|
|
{ data = DataSource.succeed ()
|
|
, canonicalUrl = "canonical-site-url"
|
|
, manifest = \_ -> manifest
|
|
, head = \_ -> []
|
|
}
|
|
|
|
|
|
startSimple : List String -> DataSource a -> ProgramTest (Model Route) Msg Effect
|
|
startSimple route dataSources =
|
|
startWithRoutes route [ route ] [] [ ( route, dataSources ) ]
|
|
|
|
|
|
startSimpleWithCache : List String -> DataSource a -> List ( Request.Request, String ) -> ProgramTest (Model Route) Msg Effect
|
|
startSimpleWithCache route dataSources cache =
|
|
startWithRoutes route [ route ] cache [ ( route, dataSources ) ]
|
|
|
|
|
|
startWithRoutes :
|
|
List String
|
|
-> List (List String)
|
|
-> List ( Request.Request, String )
|
|
-> List ( List String, DataSource a )
|
|
-> ProgramTest (Model Route) Msg Effect
|
|
startWithRoutes pageToLoad staticRoutes staticHttpCache pages =
|
|
let
|
|
contentCache : ContentCache
|
|
contentCache =
|
|
ContentCache.init Nothing
|
|
|
|
config : ProgramConfig Msg () Route () () ()
|
|
config =
|
|
{ toJsPort = toJsPort
|
|
, fromJsPort = fromJsPort
|
|
, init = \_ _ _ _ _ -> ( (), Cmd.none )
|
|
, getStaticRoutes =
|
|
staticRoutes
|
|
|> List.map (String.join "/")
|
|
|> List.map Route
|
|
|> DataSource.succeed
|
|
, handleRoute =
|
|
\(Route route) ->
|
|
staticRoutes
|
|
|> List.map (String.join "/")
|
|
|> List.member route
|
|
|> (\found ->
|
|
if found then
|
|
Nothing
|
|
|
|
else
|
|
Just Pages.Internal.NotFoundReason.NoMatchingRoute
|
|
)
|
|
|> DataSource.succeed
|
|
, urlToRoute = .path >> Route
|
|
, update = \_ _ _ _ _ -> ( (), Cmd.none )
|
|
, basePath = []
|
|
, data =
|
|
\(Route pageRoute) ->
|
|
let
|
|
thing : Maybe (DataSource a)
|
|
thing =
|
|
pages
|
|
|> Dict.fromList
|
|
|> Dict.get
|
|
(pageRoute
|
|
|> String.split "/"
|
|
|> List.filter (\pathPart -> pathPart /= "")
|
|
)
|
|
in
|
|
case thing of
|
|
Just request ->
|
|
request |> DataSource.map (\_ -> ())
|
|
|
|
Nothing ->
|
|
DataSource.fail <| "Couldn't find page: " ++ pageRoute ++ "\npages: " ++ Debug.toString pages
|
|
, site = Just site
|
|
, view =
|
|
\page _ ->
|
|
let
|
|
thing : Maybe (DataSource a)
|
|
thing =
|
|
pages
|
|
|> Dict.fromList
|
|
|> Dict.get
|
|
(page.path |> Path.toSegments)
|
|
in
|
|
case thing of
|
|
Just _ ->
|
|
\_ _ -> { view = \_ -> { title = "Title", body = Html.text "" }, head = [] }
|
|
|
|
Nothing ->
|
|
Debug.todo <| "Couldn't find page: " ++ Debug.toString page ++ "\npages: " ++ Debug.toString pages
|
|
, subscriptions = \_ _ _ -> Sub.none
|
|
, routeToPath = \(Route route) -> route |> String.split "/"
|
|
, sharedData = DataSource.succeed ()
|
|
, onPageChange = \_ -> Continue
|
|
, apiRoutes = \_ -> []
|
|
, pathPatterns = []
|
|
}
|
|
|
|
encodedFlags : Encode.Value
|
|
encodedFlags =
|
|
--{"secrets":
|
|
-- {"API_KEY": "ABCD1234","BEARER": "XYZ789"}, "mode": "prod", "staticHttpCache": {}
|
|
-- }
|
|
Encode.object
|
|
[ ( "secrets"
|
|
, [ ( "API_KEY", "ABCD1234" )
|
|
, ( "BEARER", "XYZ789" )
|
|
]
|
|
|> Dict.fromList
|
|
|> Encode.dict identity Encode.string
|
|
)
|
|
, ( "staticHttpCache", encodedStaticHttpCache )
|
|
, ( "mode", Encode.string "dev-server" )
|
|
]
|
|
|
|
encodedStaticHttpCache : Encode.Value
|
|
encodedStaticHttpCache =
|
|
staticHttpCache
|
|
|> List.map
|
|
(\( request, httpResponseString ) ->
|
|
( Request.hash request, Encode.string httpResponseString )
|
|
)
|
|
|> Encode.object
|
|
in
|
|
{-
|
|
(Model -> model)
|
|
-> ContentCache.ContentCache metadata view
|
|
-> Result (List BuildError) (List ( PagePath, metadata ))
|
|
-> Config pathKey userMsg userModel metadata view
|
|
-> Decode.Value
|
|
-> ( model, Effect pathKey )
|
|
-}
|
|
ProgramTest.createDocument
|
|
{ init =
|
|
init
|
|
site
|
|
(RenderRequest.SinglePage
|
|
RenderRequest.OnlyJson
|
|
(RenderRequest.Page
|
|
{ path = Path.fromString (pageToLoad |> String.join "/")
|
|
, frontmatter = Route (pageToLoad |> String.join "/")
|
|
}
|
|
)
|
|
(Encode.object [])
|
|
)
|
|
contentCache
|
|
config
|
|
, update = update site contentCache config
|
|
, view = \_ -> { title = "", body = [] }
|
|
}
|
|
|> ProgramTest.withSimulatedEffects simulateEffects
|
|
|> ProgramTest.withSimulatedSubscriptions simulateSubscriptions
|
|
|> ProgramTest.start (flags (Encode.encode 0 encodedFlags))
|
|
|
|
|
|
flags : String -> JD.Value
|
|
flags jsonString =
|
|
case JD.decodeString JD.value jsonString of
|
|
Ok value ->
|
|
value
|
|
|
|
Err _ ->
|
|
Debug.todo "Invalid JSON value."
|
|
|
|
|
|
sendToJsPort : ToJsPayload.ToJsSuccessPayloadNewCombined -> ProgramTest.SimulatedEffect msg
|
|
sendToJsPort value =
|
|
SimulatedEffect.Ports.send "toJsPort" (value |> Codec.encoder (ToJsPayload.successCodecNew2 "" ""))
|
|
|
|
|
|
simulateEffects : Effect -> ProgramTest.SimulatedEffect Msg
|
|
simulateEffects effect =
|
|
case effect of
|
|
Effect.NoEffect ->
|
|
SimulatedEffect.Cmd.none
|
|
|
|
-- toJsPort value |> Cmd.map never
|
|
Effect.Batch list ->
|
|
list
|
|
|> List.map simulateEffects
|
|
|> SimulatedEffect.Cmd.batch
|
|
|
|
Effect.FetchHttp { unmasked, masked } ->
|
|
if unmasked.url |> String.startsWith "file://" then
|
|
let
|
|
filePath : String
|
|
filePath =
|
|
String.dropLeft 7 unmasked.url
|
|
in
|
|
ToJsPayload.ReadFile filePath
|
|
|> sendToJsPort
|
|
|> SimulatedEffect.Cmd.map never
|
|
|
|
else if unmasked.url |> String.startsWith "glob://" then
|
|
let
|
|
globPattern : String
|
|
globPattern =
|
|
String.dropLeft 7 unmasked.url
|
|
in
|
|
ToJsPayload.Glob globPattern
|
|
|> sendToJsPort
|
|
|> SimulatedEffect.Cmd.map never
|
|
|
|
else if unmasked.url |> String.startsWith "port://" then
|
|
let
|
|
portName : String
|
|
portName =
|
|
String.dropLeft 7 unmasked.url
|
|
in
|
|
ToJsPayload.Port portName
|
|
|> sendToJsPort
|
|
|> SimulatedEffect.Cmd.map never
|
|
|
|
else
|
|
ToJsPayload.DoHttp { masked = masked, unmasked = unmasked }
|
|
|> sendToJsPort
|
|
|> SimulatedEffect.Cmd.map never
|
|
|
|
Effect.SendSinglePage done info ->
|
|
SimulatedEffect.Cmd.batch
|
|
[ info
|
|
|> Codec.encoder (ToJsPayload.successCodecNew2 "" "")
|
|
|> SimulatedEffect.Ports.send "toJsPort"
|
|
, if done then
|
|
SimulatedEffect.Cmd.none
|
|
|
|
else
|
|
SimulatedEffect.Task.succeed ()
|
|
|> SimulatedEffect.Task.perform (\_ -> Continue)
|
|
]
|
|
|
|
Effect.Continue ->
|
|
SimulatedEffect.Cmd.none
|
|
|
|
Effect.ReadFile _ ->
|
|
SimulatedEffect.Cmd.none
|
|
|
|
Effect.GetGlob _ ->
|
|
SimulatedEffect.Cmd.none
|
|
|
|
|
|
expectErrorsPort : String -> List ToJsPayload.ToJsSuccessPayloadNewCombined -> Expect.Expectation
|
|
expectErrorsPort expectedPlainString actualPorts =
|
|
case actualPorts |> List.reverse |> List.head of
|
|
Just (ToJsPayload.Errors actualRichTerminalString) ->
|
|
actualRichTerminalString
|
|
|> List.map .title
|
|
|> String.join "\n"
|
|
|> normalizeErrorExpectEqual expectedPlainString
|
|
|
|
Nothing ->
|
|
Expect.fail "Expected single error port. Didn't receive any ports."
|
|
|
|
_ ->
|
|
Expect.fail <| "Expected single error port. Got\n" ++ String.join "\n\n" (List.map Debug.toString actualPorts)
|
|
|
|
|
|
normalizeErrorExpectEqual : String -> String -> Expect.Expectation
|
|
normalizeErrorExpectEqual expectedPlainString actualRichTerminalString =
|
|
actualRichTerminalString
|
|
|> Regex.replace
|
|
-- strip out all possible ANSI sequences
|
|
(Regex.fromString "(\\x9B|\\x1B\\[)[0-?]*[ -/]*[@-~]"
|
|
|> Maybe.withDefault Regex.never
|
|
)
|
|
(\_ -> "")
|
|
|> String.replace "\u{001B}" ""
|
|
|> normalizeNewlines
|
|
|> Expect.equal
|
|
(expectedPlainString |> normalizeNewlines)
|
|
|
|
|
|
normalizeNewlines : String -> String
|
|
normalizeNewlines string =
|
|
string
|
|
|> Regex.replace
|
|
(Regex.fromString "(\n)+" |> Maybe.withDefault Regex.never)
|
|
(\_ -> "")
|
|
|> Regex.replace
|
|
(Regex.fromString "( )+" |> Maybe.withDefault Regex.never)
|
|
(\_ -> " ")
|
|
|> String.replace "\u{000D}" ""
|
|
|> Regex.replace
|
|
(Regex.fromString "\\s" |> Maybe.withDefault Regex.never)
|
|
(\_ -> "")
|
|
|
|
|
|
toJsPort : a -> Cmd msg
|
|
toJsPort _ =
|
|
Cmd.none
|
|
|
|
|
|
fromJsPort : Sub msg
|
|
fromJsPort =
|
|
Sub.none
|
|
|
|
|
|
manifest : Manifest.Config
|
|
manifest =
|
|
Manifest.init
|
|
{ description = "elm-pages - A statically typed site generator."
|
|
, name = "elm-pages docs"
|
|
, startUrl = Path.join []
|
|
, icons = []
|
|
}
|
|
|
|
|
|
starDecoder : Decoder Int
|
|
starDecoder =
|
|
Decode.field "stargazer_count" Decode.int
|
|
|
|
|
|
expectSuccess : List ( Request.Request, String ) -> ProgramTest model msg effect -> Expect.Expectation
|
|
expectSuccess expectedRequests previous =
|
|
expectSuccessNew expectedRequests [] previous
|
|
|
|
|
|
expectSuccessNew : List ( Request.Request, String ) -> List (ToJsPayload.ToJsSuccessPayloadNew -> Expect.Expectation) -> ProgramTest model msg effect -> Expect.Expectation
|
|
expectSuccessNew expectedRequest expectations previous =
|
|
previous
|
|
|> ProgramTest.expectOutgoingPortValues
|
|
"toJsPort"
|
|
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
|
|
(\value ->
|
|
case value of
|
|
(ToJsPayload.PageProgress portPayload) :: _ ->
|
|
let
|
|
singleExpectation : ToJsPayload.ToJsSuccessPayloadNew -> Expect.Expectation
|
|
singleExpectation =
|
|
\subject ->
|
|
subject.contentJson
|
|
|> Expect.equal
|
|
(expectedRequest
|
|
|> List.map
|
|
(\( request, response ) ->
|
|
( Request.hash request, response )
|
|
)
|
|
|> Dict.fromList
|
|
)
|
|
in
|
|
portPayload
|
|
|> Expect.all
|
|
(singleExpectation
|
|
:: expectations
|
|
)
|
|
|
|
[ errorPort ] ->
|
|
Expect.fail <| "Expected success port. Got:\n" ++ Debug.toString errorPort
|
|
|
|
_ ->
|
|
Expect.fail ("Expected ports to be called once, but instead there were " ++ String.fromInt (List.length value) ++ " calls.")
|
|
)
|
|
|
|
|
|
simulateSubscriptions : a -> ProgramTest.SimulatedSub Msg
|
|
simulateSubscriptions _ =
|
|
SimulatedEffect.Ports.subscribe "fromJsPort"
|
|
(JD.field "tag" JD.string
|
|
|> JD.andThen
|
|
(\tag ->
|
|
case tag of
|
|
"GotGlob" ->
|
|
JD.field "data"
|
|
(JD.map2 Tuple.pair
|
|
(JD.field "pattern" JD.string)
|
|
(JD.field "result" JD.value)
|
|
)
|
|
|> JD.map
|
|
(\( globPattern, response ) ->
|
|
GotDataBatch
|
|
[ { request =
|
|
{ masked =
|
|
{ url = "glob://" ++ globPattern
|
|
, method = "GET"
|
|
, headers = []
|
|
, body = StaticHttpBody.EmptyBody
|
|
}
|
|
, unmasked =
|
|
{ url = "glob://" ++ globPattern
|
|
, method = "GET"
|
|
, headers = []
|
|
, body = StaticHttpBody.EmptyBody
|
|
}
|
|
}
|
|
, response = Encode.encode 0 response
|
|
}
|
|
]
|
|
)
|
|
|
|
"GotFile" ->
|
|
JD.field "data"
|
|
(JD.map2 Tuple.pair
|
|
(JD.field "filePath" JD.string)
|
|
JD.value
|
|
)
|
|
|> JD.map
|
|
(\( filePath, response ) ->
|
|
GotDataBatch
|
|
[ { request =
|
|
{ masked =
|
|
{ url = "file://" ++ filePath
|
|
, method = "GET"
|
|
, headers = []
|
|
, body = StaticHttpBody.EmptyBody
|
|
}
|
|
, unmasked =
|
|
{ url = "file://" ++ filePath
|
|
, method = "GET"
|
|
, headers = []
|
|
, body = StaticHttpBody.EmptyBody
|
|
}
|
|
}
|
|
, response = Encode.encode 0 response
|
|
}
|
|
]
|
|
)
|
|
|
|
"GotBatch" ->
|
|
JD.field "data"
|
|
(JD.list
|
|
(JD.map2
|
|
(\requests response ->
|
|
{ request =
|
|
{ masked = requests.masked
|
|
, unmasked = requests.unmasked
|
|
}
|
|
, response = response
|
|
}
|
|
)
|
|
(JD.field "request" requestDecoder)
|
|
(JD.field "response" JD.string)
|
|
)
|
|
)
|
|
|> JD.map GotDataBatch
|
|
|
|
_ ->
|
|
JD.fail "Unexpected subscription tag."
|
|
)
|
|
)
|
|
identity
|
|
|
|
|
|
get : String -> Request.Request
|
|
get url =
|
|
{ method = "GET"
|
|
, url = url
|
|
, headers = []
|
|
, body = DataSource.Http.emptyBody
|
|
}
|
|
|
|
|
|
post : String -> Request.Request
|
|
post url =
|
|
{ method = "POST"
|
|
, url = url
|
|
, headers = []
|
|
, body = DataSource.Http.emptyBody
|
|
}
|
|
|
|
|
|
toRequest : Secrets.Value Request.Request -> { masked : Request.Request, unmasked : Request.Request }
|
|
toRequest secretsValue =
|
|
{ masked = Secrets.maskedLookup secretsValue
|
|
, unmasked = Secrets.maskedLookup secretsValue
|
|
}
|
|
|
|
|
|
simulateHttp : Secrets.Value Request.Request -> String -> ProgramTest model msg effect -> ProgramTest model msg effect
|
|
simulateHttp request response program =
|
|
program
|
|
|> ProgramTest.ensureOutgoingPortValues
|
|
"toJsPort"
|
|
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
|
|
(\actualPorts ->
|
|
case actualPorts of
|
|
[ ToJsPayload.DoHttp _ ] ->
|
|
Expect.pass
|
|
|
|
_ ->
|
|
Expect.fail <|
|
|
"Expected an HTTP request, got:\n"
|
|
++ Debug.toString actualPorts
|
|
)
|
|
|> ProgramTest.simulateIncomingPort "fromJsPort"
|
|
(Encode.object
|
|
[ ( "tag", Encode.string "GotBatch" )
|
|
, ( "data"
|
|
, Encode.list
|
|
(\req ->
|
|
Encode.object
|
|
[ ( "request"
|
|
, Encode.object
|
|
[ ( "masked"
|
|
, Codec.encodeToValue Request.codec
|
|
(toRequest req
|
|
|> .masked
|
|
)
|
|
)
|
|
, ( "unmasked"
|
|
, Codec.encodeToValue Request.codec
|
|
(toRequest req
|
|
|> .unmasked
|
|
)
|
|
)
|
|
]
|
|
)
|
|
, ( "response", Encode.string response )
|
|
]
|
|
)
|
|
[ request ]
|
|
)
|
|
]
|
|
)
|
|
|
|
|
|
simulateMultipleHttp : List ( Secrets.Value Request.Request, String ) -> ProgramTest model msg effect -> ProgramTest model msg effect
|
|
simulateMultipleHttp requests program =
|
|
program
|
|
|> ProgramTest.ensureOutgoingPortValues
|
|
"toJsPort"
|
|
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
|
|
(\actualPorts ->
|
|
case actualPorts of
|
|
(ToJsPayload.DoHttp _) :: _ ->
|
|
-- TODO check count of HTTP requests, and check the URLs
|
|
Expect.pass
|
|
|
|
_ ->
|
|
Expect.fail <|
|
|
"Expected an HTTP request, got:\n"
|
|
++ Debug.toString actualPorts
|
|
)
|
|
|> ProgramTest.simulateIncomingPort "fromJsPort"
|
|
(Encode.object
|
|
[ ( "tag", Encode.string "GotBatch" )
|
|
, ( "data"
|
|
, Encode.list
|
|
(\( req, response ) ->
|
|
Encode.object
|
|
[ ( "request"
|
|
, Encode.object
|
|
[ ( "masked"
|
|
, Codec.encodeToValue Request.codec
|
|
(toRequest req
|
|
|> .masked
|
|
)
|
|
)
|
|
, ( "unmasked"
|
|
, Codec.encodeToValue Request.codec
|
|
(toRequest req
|
|
|> .unmasked
|
|
)
|
|
)
|
|
]
|
|
)
|
|
, ( "response", Encode.string response )
|
|
]
|
|
)
|
|
requests
|
|
)
|
|
]
|
|
)
|
|
|
|
|
|
simulateHttpAssert : Secrets.Value Request.Request -> String -> ({ masked : Request.Request, unmasked : Request.Request } -> Expect.Expectation) -> ProgramTest model msg effect -> ProgramTest model msg effect
|
|
simulateHttpAssert request response checkRequest program =
|
|
program
|
|
|> ProgramTest.ensureOutgoingPortValues
|
|
"toJsPort"
|
|
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
|
|
(\actualPorts ->
|
|
case actualPorts of
|
|
[ ToJsPayload.DoHttp actualReq ] ->
|
|
--Expect.pass
|
|
checkRequest actualReq
|
|
|
|
_ ->
|
|
Expect.fail <|
|
|
"Expected an HTTP request, got:\n"
|
|
++ Debug.toString actualPorts
|
|
)
|
|
|> ProgramTest.simulateIncomingPort "fromJsPort"
|
|
(Encode.object
|
|
[ ( "tag", Encode.string "GotBatch" )
|
|
, ( "data"
|
|
, Encode.list
|
|
(\req ->
|
|
Encode.object
|
|
[ ( "request"
|
|
, Encode.object
|
|
[ ( "masked"
|
|
, Codec.encodeToValue Request.codec
|
|
(toRequest req
|
|
|> .masked
|
|
)
|
|
)
|
|
, ( "unmasked"
|
|
, Codec.encodeToValue Request.codec
|
|
(toRequest req
|
|
|> .unmasked
|
|
)
|
|
)
|
|
]
|
|
)
|
|
, ( "response", Encode.string response )
|
|
]
|
|
)
|
|
[ request ]
|
|
)
|
|
]
|
|
)
|