diff --git a/Consumer/TestCaseData.fs b/Consumer/TestCaseData.fs index a9f6738..cda3237 100644 --- a/Consumer/TestCaseData.fs +++ b/Consumer/TestCaseData.fs @@ -35,6 +35,13 @@ module TestCaseData = [] let ``Consume options, raw`` (s : string option) : unit = s |> shouldEqual s + [] + let bug66 (i : int, j : int, k : int, l : bool) = + i |> shouldEqual 30 + j |> shouldEqual 15 + k |> shouldEqual 44 + l |> shouldEqual false + [] let tearDown () = testCasesSeen diff --git a/WoofWare.NUnitTestRunner.Lib/SingleTestMethod.fs b/WoofWare.NUnitTestRunner.Lib/SingleTestMethod.fs index ee4bd3d..d1e459b 100644 --- a/WoofWare.NUnitTestRunner.Lib/SingleTestMethod.fs +++ b/WoofWare.NUnitTestRunner.Lib/SingleTestMethod.fs @@ -30,6 +30,15 @@ module SingleTestMethod = | "NUnit.Framework.TestCaseAttribute" -> let args = attr.ConstructorArguments |> Seq.map _.Value |> Seq.toList + let args = + match args with + | [ :? System.Collections.ICollection as x ] -> + x + |> Seq.cast + |> Seq.map (fun v -> v.Value) + |> Seq.toList + | _ -> args + match hasData with | None -> (remaining, isTest, sources, Some [ List.ofSeq args ], mods, cats, repeat, comb) | Some existing ->