Files
WoofWare.NUnitTestRunner/Consumer/TestParallel.fs
2024-06-15 23:26:19 +01:00

50 lines
1.1 KiB
Forth

namespace Consumer
open NUnit.Framework
open FsUnitTyped
[<TestFixture>]
[<Parallelizable>]
module TestParallelDefault =
let defaults = List.init 100 id
[<TestCaseSource(nameof defaults)>]
let ``Default thing`` (i : int) = i |> shouldEqual i
[<TestFixture>]
[<Parallelizable(ParallelScope.All)>]
module TestParallelAllScope =
let defaults = List.init 100 id
[<TestCaseSource(nameof defaults)>]
let ``Default thing`` (i : int) = i |> shouldEqual i
[<TestFixture>]
[<Parallelizable(ParallelScope.Self)>]
module TestParallelSelfScope =
let defaults = List.init 100 id
[<TestCaseSource(nameof defaults)>]
let ``Default thing`` (i : int) = i |> shouldEqual i
[<TestFixture>]
[<Parallelizable(ParallelScope.Children)>]
module TestParallelChildrenScope =
let defaults = List.init 100 id
[<TestCaseSource(nameof defaults)>]
let ``Default thing`` (i : int) = i |> shouldEqual i
[<TestFixture>]
[<Parallelizable(ParallelScope.Fixtures)>]
module TestParallelFixturesScope =
let defaults = List.init 100 id
[<TestCaseSource(nameof defaults)>]
let ``Default thing`` (i : int) = i |> shouldEqual i