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

Fix a test case.

Browse Source
This commit is contained in:
Dillon Kearns 2022-02-26 14:35:52 -08:00
parent 7afbd8188e
commit c48cec7cde
1 changed files with 27 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
tests/StaticHttpRequestsTests.elm
View File

@ -287,39 +287,39 @@ all =
}
(StringBody "This is a raw text file.")
|> expectSuccess []
, skip <|
test "Err in String to Result function turns into decode error" <|
\() ->
startSimple []
(DataSource.Http.request
{ 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
, test "Err in String to Result function turns into decode error" <|
\() ->
startSimple []
(DataSource.Http.request
{ 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"
)
else
Err "String was not uppercased"
)
)
|> simulateHttp
(get "https://example.com/file.txt")
(StringBody "This is a raw text file.")
|> ProgramTest.expectOutgoingPortValues
"toJsPort"
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
(expectErrorsPort
"""-- STATIC HTTP DECODING ERROR ----------------------------------------------------- elm-pages
|> DataSource.andThen DataSource.fromResult
)
|> simulateHttp
(get "https://example.com/file.txt")
(StringBody "This is a raw text file.")
|> ProgramTest.expectOutgoingPortValues
"toJsPort"
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
(expectErrorsPort
"""-- CALLED STATIC HTTP FAIL ----------------------------------------------------- elm-pages
String was not uppercased"""
)
I ran into a call to `DataSource.fail` with message: String was not uppercased"""
)
, test "POST method works" <|
\() ->
startSimple []