Implement our own test runner

Author: abelbraaksma

src/FSharpy.TaskSeq.Test/FSharpy.TaskSeq.Test.fsproj

@@ -11,6 +11,7 @@
     <Compile Include="AssemblyInfo.fs" />
     <Compile Include="Nunit.Extensions.fs" />
     <Compile Include="TestUtils.fs" />
+    <Compile Include="TaskSeq.AllTests.fs" />
     <Compile Include="TaskSeq.Choose.Tests.fs" />
     <Compile Include="TaskSeq.Collect.Tests.fs" />
     <Compile Include="TaskSeq.Filter.Tests.fs" />

src/FSharpy.TaskSeq.Test/TaskSeq.AllTests.fs

@@ -0,0 +1,56 @@
+namespace FSharpy.Tests
+
+open System
+open System.Threading.Tasks
+open System.Reflection
+
+open Xunit
+open FsUnit.Xunit
+open FsToolkit.ErrorHandling
+
+open FSharpy
+open Xunit.Abstractions
+
+
+type AllTests(output: ITestOutputHelper) =
+
+    [<Fact>]
+    let ``Run all tests`` () =
+        let myAsm = Assembly.GetExecutingAssembly()
+
+        let allMethods = [
+            for ty in myAsm.DefinedTypes do
+                for mem in ty.DeclaredMembers do
+                    match mem.MemberType with
+                    | MemberTypes.Method ->
+                        if mem.Name.StartsWith("TaskSeq") || mem.Name.StartsWith("CE") then
+                            yield ty, mem :?> MethodInfo
+                    | _ -> ()
+        ]
+
+        let x =
+            { new System.IFormattable with
+                member x.ToString(format: string, provider: System.IFormatProvider) =
+                    if format = "D" then "foo" else "bar"
+            }
+
+        task {
+            for (ty, method) in allMethods do
+                let ctor = ty.GetConstructor [| typeof<ITestOutputHelper> |]
+
+                if isNull ctor then
+                    failwith "Constructor for test not found"
+
+                let testObj = ctor.Invoke([| output |])
+
+                let! _ =
+                    if method.ReturnType.Name.Contains "Task" then
+                        method.Invoke(testObj, null) :?> Task<unit>
+                    else
+                        method.Invoke(testObj, null) |> ignore
+                        task { return () }
+
+                ()
+
+            return ()
+        }