Function makeUrlCapturingClient

packages/cluster/test/HttpRunner.test.ts:12–25

(urlRef: Ref.Ref<Array<string>>)

describe("HttpRunner", () => {
  describe("layerClientProtocolHttp", () => {
    const makeUrlCapturingClient = (urlRef: Ref.Ref<Array<string>>) =>
      HttpClient.make((request, url) =>
        Ref.update(urlRef, (urls) => [...urls, url.toString()]).pipe(
          Effect.flatMap(() =>
            Effect.fail(
              new HttpClientError.RequestError({
                request,
                reason: "Transport",
                cause: new Error("Mock - URL captured")
              })
            )
          )
        )
      )

    const testRequest = {
      _tag: "Request" as const,