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

Fix test error.

Browse Source
This commit is contained in:
Dillon Kearns 2023-01-17 15:46:40 -08:00
parent c511d2642f
commit c847e32857
1 changed files with 9 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
tests/StaticHttpRequestsTests.elm
View File

@ -671,21 +671,13 @@ simulateEffects effect =
|> List.map simulateEffects
|> SimulatedEffect.Cmd.batch
Effect.FetchHttp unmasked ->
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 (Request.hash unmasked) unmasked
|> sendToJsPort
|> SimulatedEffect.Cmd.map never
Effect.FetchHttp requests ->
requests
|> List.map
(\request -> ( Request.hash request, request ))
|> ToJsPayload.DoHttp
|> sendToJsPort
|> SimulatedEffect.Cmd.map never
Effect.SendSinglePage info ->
SimulatedEffect.Cmd.batch
@ -843,7 +835,7 @@ simulateHttp request response program =
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
(\actualPorts ->
case actualPorts of
[ ToJsPayload.DoHttp _ _ ] ->
[ ToJsPayload.DoHttp _ ] ->
Expect.pass
_ ->
@ -863,7 +855,7 @@ simulateMultipleHttp requests program =
(Codec.decoder (ToJsPayload.successCodecNew2 "" ""))
(\actualPorts ->
case actualPorts of
(ToJsPayload.DoHttp _ _) :: _ ->
(ToJsPayload.DoHttp _) :: _ ->
-- TODO check count of HTTP requests, and check the URLs
Expect.pass