Allow JSON parsing to happen in an extension method (#63)

WoofWare.Myriad.Plugins.Test/TestJsonParse/TestExtensionMethod.fs

@@ -0,0 +1,26 @@
+namespace WoofWare.Myriad.Plugins.Test
+
+open System
+open System.Text.Json.Nodes
+open ConsumePlugin
+open NUnit.Framework
+open FsUnitTyped
+
+[<TestFixture>]
+module TestExtensionMethod =
+
+    [<Test>]
+    let ``Parse via extension method`` () =
+        let json =
+            """{"tinker": "job", "tailor": 3, "soldier": "https://example.com", "sailor": 3.1}"""
+            |> JsonNode.Parse
+
+        let expected =
+            {
+                Tinker = "job"
+                Tailor = 3
+                Soldier = Uri "https://example.com"
+                Sailor = 3.1
+            }
+
+        ToGetExtensionMethod.jsonParse json |> shouldEqual expected

WoofWare.Myriad.Plugins.Test/TestJsonParse/TestJsonParse.fs

@@ -32,3 +32,18 @@ module TestJsonParse =
 
         let actual = s |> JsonNode.Parse |> JsonRecordType.jsonParse
         actual |> shouldEqual expected
+
+    [<Test>]
+    let ``Inner example`` () =
+        let s =
+            """{
+    "something": "oh hi"
+}"""
+
+        let expected =
+            {
+                Thing = "oh hi"
+            }
+
+        let actual = s |> JsonNode.Parse |> InnerType.jsonParse
+        actual |> shouldEqual expected

WoofWare.Myriad.Plugins.Test/TestMockGenerator/TestMockGenerator.fs

@@ -14,6 +14,7 @@ module TestMockGenerator =
             { PublicTypeMock.Empty with
                 Mem1 = fun (s, count) -> List.replicate count s
             }
+            :> _
 
         let _ =
             Assert.Throws<NotImplementedException> (fun () -> mock.Mem2 "hi" |> ignore<int>)
@@ -28,6 +29,7 @@ module TestMockGenerator =
                 Mem2 = fun (i, s) c -> String.concat $"%c{c}" (List.replicate i s)
                 Mem3 = fun (i, s) c -> String.concat $"%c{c}" (List.replicate i s)
             }
+            :> _
 
         mock.Mem1 3 'a' |> shouldEqual "aaa"
         mock.Mem2 (3, "hi") 'a' |> shouldEqual "hiahiahi"

WoofWare.Myriad.Plugins.Test/WoofWare.Myriad.Plugins.Test.fsproj

@@ -11,6 +11,7 @@
     <Compile Include="PureGymDtos.fs"/>
     <Compile Include="TestJsonParse\TestJsonParse.fs" />
     <Compile Include="TestJsonParse\TestPureGymJson.fs" />
+    <Compile Include="TestJsonParse\TestExtensionMethod.fs" />
     <Compile Include="TestHttpClient\TestPureGymRestApi.fs" />
     <Compile Include="TestHttpClient\TestPathParam.fs" />
     <Compile Include="TestHttpClient\TestReturnTypes.fs" />