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 test expectaion.

Browse Source
This commit is contained in:
Dillon Kearns 2019-11-02 14:46:52 -07:00
parent 72c84901ff
commit 28c48af222
1 changed files with 28 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
tests/StaticHttpRequestsTests.elm
View File

@ -13,6 +13,7 @@ import Pages.Internal.Secrets
import Pages.Manifest as Manifest
import Pages.PagePath as PagePath
import ProgramTest exposing (ProgramTest)
import Regex
import Secrets exposing (Secrets)
import SimulatedEffect.Cmd
import SimulatedEffect.Http
@ -256,15 +257,15 @@ The user should get this message from the CLI."""
|> ProgramTest.expectOutgoingPortValues
"toJsPort"
(Codec.decoder Main.toJsCodec)
(Expect.equal
[ Errors <|
Terminal.toString
[ Terminal.cyan <| Terminal.text "-- MISSING SECRET ----------------------------------------------------- elm-pages"
, Terminal.text "\n\nI expected to find this Secret in your environment variables but didn't find a match:\n\nSecrets.get \"MISSING\"\n"
, Terminal.yellow <| Terminal.text "https://api.github.com/repos/dillonkearns/elm-pages"
, Terminal.text "\n\nBad status: 404"
]
]
(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 "an error is sent for HTTP errors" <|
\() ->
@ -446,6 +447,24 @@ simulateEffects effect =
}
expectErrorsPort expectedPlainString actualPorts =
case actualPorts of
[ Errors actualRichTerminalString ] ->
let
actualPlainString =
actualRichTerminalString
|> Regex.replace
(Regex.fromString "\u{001B}\\[[0-9;]+m"
|> Maybe.withDefault Regex.never
)
(\_ -> "")
in
actualPlainString |> Expect.equal expectedPlainString
_ ->
Expect.fail "Expected single error port"
toJsPort foo =
Cmd.none