A function in F# that can create dummy strings and integers (can be extended).

Simple value factory function

open FsToolkit.ErrorHandling
open Xunit
open Swensen.Unquote

let factoryFunction<'a> () : 'a =
    let value =
        if typeof<'a> = typeof<string> then "String" :> obj
        elif typeof<'a> = typeof<int> then 1 :> obj
        else failwith "Unsupported type"
    downcast value

[<Fact>]
let ``factory can create dummy string value`` () =
    let result = factoryFunction ()
    test <@ result = "String" @>

[<Fact>]
let ``factory can create dummy int value`` () =
    let result = factoryFunction ()
    test <@ result = 1 @>