mirror of
https://github.com/Smaug123/WoofWare.Myriad
synced 2025-10-24 13:28:43 +00:00
18 lines
569 B
Forth
18 lines
569 B
Forth
namespace MyriadPlugin.Test
|
|
|
|
open System.Net.Http
|
|
|
|
/// Simple implementation of an HttpClient.
|
|
type HttpClientMock (result : HttpRequestMessage -> Async<HttpResponseMessage>) =
|
|
inherit HttpClient ()
|
|
|
|
override this.SendAsync (message, ct) =
|
|
Async.StartAsTask (result message, cancellationToken = ct)
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module HttpClientMock =
|
|
let make (baseUrl : System.Uri) (handler : HttpRequestMessage -> Async<HttpResponseMessage>) =
|
|
let result = new HttpClientMock (handler)
|
|
result.BaseAddress <- baseUrl
|
|
result
|