patrick/WoofWare.NUnitTestRunner
1
0
Fork 0
mirror of https://github.com/Smaug123/unofficial-nunit-runner synced 2025-10-07 18:18:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

Implement ParallelScope.None (#169)

Browse Source
This commit is contained in:
Patrick Stevens
2024-10-29 17:17:39 +00:00
committed by GitHub
parent 8626cc1252
commit a694637958
11 changed files with 186 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
WoofWare.NUnitTestRunner.Lib/Domain.fs
View File

@@ -61,6 +61,24 @@ type Parallelizable<'scope> =
/// This test must always be run on its own.
| No
[<RequireQualifiedAccess>]
module Parallelizable =
/// Functorial map.
let inline map<'a, 'b> ([<InlineIfLambda>] f : 'a -> 'b) (p : Parallelizable<'a>) : Parallelizable<'b> =
match p with
| Parallelizable.No -> Parallelizable.No
| Parallelizable.Yes a -> Parallelizable.Yes (f a)
/// Functorial bind.
let inline bind<'a, 'b>
([<InlineIfLambda>] f : 'a -> Parallelizable<'b>)
(p : Parallelizable<'a>)
: Parallelizable<'b>
=
match p with
| Parallelizable.No -> Parallelizable.No
| Parallelizable.Yes a -> f a
/// A single method or member which holds some tests. (Often such a member will represent only one test, but e.g.
/// if it has [<TestCaseSource>] then it represents multiple tests.)
type SingleTestMethod =