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

Special NUnit exception types (#38)

Browse Source
This commit is contained in:
Patrick Stevens
2024-06-06 21:23:47 +01:00
committed by GitHub
parent 00e2b027c7
commit 9a0eb1d8fc
6 changed files with 52 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
TestRunner.Lib/TestFixture.fs
View File

@@ -31,7 +31,7 @@ module TestFixture =
(test : MethodInfo)
(containingObject : obj)
(args : obj[])
: Result<unit, TestFailure list>
: Result<TestMemberSuccess, TestFailure list>
=
let rec runMethods
(wrap : UserMethodFailure -> TestFailure)
@@ -59,15 +59,30 @@ module TestFixture =
| Error e -> Error [ e ]
| Ok () ->
let result = runMethods TestFailure.TestFailed [ test ] args
let result =
let result = runMethods TestFailure.TestFailed [ test ] args
match result with
| Ok () -> Ok None
| Error (TestFailure.TestFailed (UserMethodFailure.Threw (_, exc)) as orig) ->
match exc.GetType().FullName with
| "NUnit.Framework.SuccessException" -> Ok None
| "NUnit.Framework.IgnoreException" -> Ok (Some (TestMemberSuccess.Ignored (Option.ofObj exc.Message)))
| "NUnit.Framework.InconclusiveException" ->
Ok (Some (TestMemberSuccess.Inconclusive (Option.ofObj exc.Message)))
| s when s.StartsWith ("NUnit.Framework.", StringComparison.Ordinal) ->
failwith $"Unrecognised special exception: %s{s}"
| _ -> Error orig
| Error orig -> Error orig
// Unconditionally run TearDown after tests, even if tests failed.
let tearDownResult = runMethods TestFailure.TearDownFailed tearDown [||]
match result, tearDownResult with
| Ok (), Ok () -> Ok ()
| Ok None, Ok () -> Ok TestMemberSuccess.Ok
| Ok (Some s), Ok () -> Ok s
| Error e, Ok ()
| Ok (), Error e -> Error [ e ]
| Ok _, Error e -> Error [ e ]
| Error e1, Error e2 -> Error [ e1 ; e2 ]
let private getValues (test : SingleTestMethod) =
@@ -140,11 +155,11 @@ module TestFixture =
| Ok values ->
let inline normaliseError
(e : Result<unit, TestFailure list>)
(e : Result<TestMemberSuccess, TestFailure list>)
: Result<TestMemberSuccess, TestMemberFailure>
=
match e with
| Ok () -> Ok TestMemberSuccess.Ok
| Ok s -> Ok s
| Error e -> Error (e |> TestMemberFailure.Failed)
match test.Kind, values with