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

Stop requiring reference types in enumeration (#10)

Browse Source
This commit is contained in:
Patrick Stevens
2024-06-04 21:40:27 +01:00
committed by GitHub
parent 5d46a39f18
commit 198b0f5412
1 changed files with 13 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
TestRunner/Program.fs
View File

@@ -1,7 +1,6 @@
namespace TestRunner
open System
open System.Collections.Generic
open System.IO
open System.Reflection
open System.Threading
@@ -199,15 +198,19 @@ module TestFixture =
||| BindingFlags.Static
)
args.GetValue null :?> IEnumerable<obj>
|> Seq.map (fun arg ->
match arg with
| :? TestCaseData as tcd -> runOne test.Method tcd.Arguments
| :? Tuple<obj, obj> as (a, b) -> runOne test.Method [| a ; b |]
| :? Tuple<obj, obj, obj> as (a, b, c) -> runOne test.Method [| a ; b ; c |]
| :? Tuple<obj, obj, obj, obj> as (a, b, c, d) -> runOne test.Method [| a ; b ; c ; d |]
| arg -> runOne test.Method [| arg |]
)
seq {
// Might not be an IEnumerable of a reference type.
// Concretely, `FSharpList<HttpStatusCode> :> IEnumerable<obj>` fails.
for arg in args.GetValue null :?> System.Collections.IEnumerable do
yield
match arg with
| :? TestCaseData as tcd -> runOne test.Method tcd.Arguments
| :? Tuple<obj, obj> as (a, b) -> runOne test.Method [| a ; b |]
| :? Tuple<obj, obj, obj> as (a, b, c) -> runOne test.Method [| a ; b ; c |]
| :? Tuple<obj, obj, obj, obj> as (a, b, c, d) ->
runOne test.Method [| a ; b ; c ; d |]
| arg -> runOne test.Method [| arg |]
}
)
|> Seq.concat
|> Seq.toList