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

Fix failing test.

Browse Source
This commit is contained in:
Dillon Kearns 2019-10-29 22:33:47 -07:00
parent e55f9069cc
commit e48c16da94
2 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/Pages/Internal/Platform/Cli.elm
View File

@ -624,6 +624,7 @@ sendStaticResponsesIfDone errors staticResponses manifest =
Err error ->
{ message =
[ Terminal.text path
, Terminal.text "\n\n"
, Terminal.text error
]
}
@ -653,7 +654,7 @@ sendStaticResponsesIfDone errors staticResponses manifest =
)
else
Errors <| errorsToString errors
Errors <| errorsToString (failedRequests ++ errors)
)
@ -690,21 +691,23 @@ errorToString : Error -> String
errorToString error =
case error of
MissingSecret buildError ->
banner "Missing Secret" :: buildError.message |> Terminal.toString
banner "Missing Secret" ++ buildError.message |> Terminal.toString
MetadataDecodeError buildError ->
banner "Metadata Decode Error" :: buildError.message |> Terminal.toString
banner "Metadata Decode Error" ++ buildError.message |> Terminal.toString
InternalError buildError ->
banner "Internal Error" :: buildError.message |> Terminal.toString
banner "Internal Error" ++ buildError.message |> Terminal.toString
FailedStaticHttpRequestError buildError ->
banner "Failed Static Http Error" :: buildError.message |> Terminal.toString
banner "Failed Static Http Error" ++ buildError.message |> Terminal.toString
banner title =
Terminal.cyan <|
Terminal.text ("-- " ++ String.toUpper title ++ " ----------------------------------------------------- elm-pages\n\n")
[ Terminal.cyan <|
Terminal.text ("-- " ++ String.toUpper title ++ " ----------------------------------------------------- elm-pages")
, Terminal.text "\n\n"
]
encodeStaticResponses : StaticResponses -> Dict String (Dict String String)

4
tests/StaticHttpRequestsTests.elm
View File

@ -163,7 +163,9 @@ all =
(Codec.decoder Main.toJsCodec)
(Expect.equal
[ Errors
"""/elm-pages
"""\u{001B}[36m-- FAILED STATIC HTTP ERROR ----------------------------------------------------- elm-pages\u{001B}[0m
/elm-pages
Problem with the given value: