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 test case compiler errors.

Browse Source
This commit is contained in:
Dillon Kearns 2023-01-08 11:04:27 -08:00
parent a77787135d
commit 2ae58cc0ab
1 changed files with 18 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
examples/end-to-end/src/Test/HttpRequests.elm
View File

@ -63,21 +63,17 @@ all =
_ ->
Expect.fail ("Expected BadStatus, got: " ++ Debug.toString result)
)
, BackendTask.Http.request
, BackendTask.Http.getWithOptions
{ url = "https://api.github.com/repos/dillonkearns/elm-pages"
, method = "GET"
, headers = []
, body = BackendTask.Http.emptyBody
, options =
Just
{ cacheStrategy = BackendTask.Http.IgnoreCache
, retries = 0
, timeoutInMs = Nothing
}
, cacheStrategy = Just BackendTask.Http.IgnoreCache
, cachePath = Nothing
, retries = Nothing
, timeoutInMs = Nothing
, expect =
BackendTask.Http.expectJson
(Decode.field "this-field-doesn't-exist" Decode.int)
}
(BackendTask.Http.expectJson
(Decode.field "this-field-doesn't-exist" Decode.int)
)
|> test "cache options"
(\result ->
case result of
@ -88,23 +84,19 @@ all =
_ ->
Expect.fail ("Expected BadStatus, got: " ++ Debug.toString result)
)
, BackendTask.Http.request
, BackendTask.Http.getWithOptions
{ url = "https://api.github.com/repos/dillonkearns/elm-pages"
, method = "GET"
, headers = []
, body = BackendTask.Http.emptyBody
, options =
Just
{ cacheStrategy = BackendTask.Http.ForceRevalidate
, retries = 0
, timeoutInMs = Nothing
}
, cacheStrategy = Just BackendTask.Http.ForceRevalidate
, cachePath = Nothing
, retries = Nothing
, timeoutInMs = Nothing
, expect =
BackendTask.Http.withMetadata Tuple.pair
(BackendTask.Http.expectJson
(Decode.field "stargazers_count" Decode.int)
)
}
(BackendTask.Http.withMetadata Tuple.pair
(BackendTask.Http.expectJson
(Decode.field "stargazers_count" Decode.int)
)
)
|> test "with metadata"
(\result ->
case result of