Bump deps (#54)

WoofWare.Myriad.Plugins.Test/HttpClient.fs

@@ -0,0 +1,21 @@
+namespace WoofWare.Myriad.Plugins.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 makeNoUri (handler : HttpRequestMessage -> Async<HttpResponseMessage>) =
+        let result = new HttpClientMock (handler)
+        result
+
+    let make (baseUrl : System.Uri) (handler : HttpRequestMessage -> Async<HttpResponseMessage>) =
+        let result = makeNoUri handler
+        result.BaseAddress <- baseUrl
+        result