From c847e328572264cbe759dd645ad57d67ee45d612 Mon Sep 17 00:00:00 2001
From: Dillon Kearns <dillon@incrementalelm.com>
Date: Tue, 17 Jan 2023 15:46:40 -0800
Subject: [PATCH] Fix test error.

---
 tests/StaticHttpRequestsTests.elm | 26 +++++++++-----------------
 1 file changed, 9 insertions(+), 17 deletions(-)

diff --git a/tests/StaticHttpRequestsTests.elm b/tests/StaticHttpRequestsTests.elm
index eb3fb91c..b198c975 100644
--- a/tests/StaticHttpRequestsTests.elm
+++ b/tests/StaticHttpRequestsTests.elm
@@ -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