Visual Studio tests sample

VisualStudioTests.fs

namespace VisualStudio.Tests

open Microsoft.VisualStudio.TestTools.UnitTesting

[<TestClass>]
module VisualStudioTests = 

    [<TestClass>]
    type testrun() = 

        [<ClassInitialize>]
        static member ``Visual Studio instance member class initialize``(_: TestContext) =
            printfn "Visual Studio instance member class initialize" |> ignore

        [<TestInitialize>]
        member this.``Visual Studio instance member initialize``() =
            printfn "Visual Studio instance member initialize"

        [<TestMethod>]
        member this.``Visual Studio instance member test 1``() =
            Assert.AreEqual (3, 1 + 2)

        [<TestMethod>]
        member this.``Visual Studio instance member test 2``() =
            Assert.AreEqual (4, 2 + 2)

        [<TestCleanup>]
        member this.``Visual Studio instance member cleanup``() =
            printfn "Visual Studio instance member cleanup"

        [<ClassCleanup>]
        static member ``Visual Studio instance member class cleanup``() =
            printfn "Visual Studio instance member class cleanup" |> ignore