A sample illustrating the syntax for using a data member source for an xUnit theory with F# and FsUnit

FSUnitTheoryDataMemberSample.fs

namespace MachineLearningBook.SpamDetector.UnitTests
    module DataSetTests =
        open System
        open FSharp.Reflection
        open MachineLearningBook.SpamDetector
        open Xunit
        open FsUnit.Xunit                

        type ``Parsing a DocType should produce the expected results`` () =
            
            /// The set of theory data containing Document.DocType names.
            static member DocTypeNameData 
                with get() = FSharpType.GetUnionCases typeof<DataSet.DocType> |> Seq.map (fun case -> [| case.Name |])
            
            [<Theory>]
            [<MemberData("DocTypeNameData")>]            
            member verify.``Exact DocTypes can be parsed`` (docTypeName:string) =
                let result = DataSet.parseDocType docTypeName
                
                result.IsSome |> should be True
                result.Value.ToString() |> should equal docTypeName