Benchmark.fs

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