Tarmil · June 18, 2020 17:46 · Jun 18, 2020
diff --git a/Benchmark.fs b/Benchmark.fs
@@ -0,0 +1,28 @@
+open System.Text.Json
+open System.Text.Json.Serialization
+open BenchmarkDotNet.Attributes
+open BenchmarkDotNet.Running
+
+type MyRecord =
+    {
+        x: int
+        y: string
+    }
+
+type Records() =
+
+    let o = JsonSerializerOptions()
+    do o.Converters.Add(JsonFSharpConverter())
+
+    let r = { x = 1; y = "a" }
+
+    [<Benchmark>]
+    member _.BoleroJson() = Bolero.Json.Serialize(r)
+
+    [<Benchmark>]
+    member _.SystemTextJson() = JsonSerializer.Serialize(r, o)
+
+[<EntryPoint>]
+let main argv =
+    BenchmarkRunner.Run<Records>() |> ignore
+    0