BenchmarkUnion.fs

open System.Text.Json
open System.Text.Json.Serialization
open BenchmarkDotNet.Attributes
open BenchmarkDotNet.Running

type MyUnion =
    | Foo
    | Bar of int * string

type Unions() =

    let o = JsonSerializerOptions()
    do o.Converters.Add(JsonFSharpConverter())

    let u = Bar (1, "a")

    [<Benchmark>]
    member _.BoleroJson() = Bolero.Json.Serialize(u)

    [<Benchmark>]
    member _.SystemTextJson() = JsonSerializer.Serialize(u, o)

[<EntryPoint>]
let main argv =
    BenchmarkRunner.Run<Unions>() |> ignore
    0