CommonFSharp (Polyglot)

#!import ../../lib/fsharp/Notebooks.livemd

#!import ../../lib/fsharp/Testing.livemd

#!import ../../lib/fsharp/Common.fs

open Common

getUnionCaseName

let inline getUnionCaseName<'T> (x: 'T) =
    match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
    | case, _ -> case.Name

///- --test

TraceLevel.Critical
|> getUnionCaseName
|> _assertEqual (nameof TraceLevel.Critical)

"Critical"