Rename from the rather bland "TestRunner" (#61)

WoofWare.NUnitTestRunner.Lib/Array.fs

@@ -0,0 +1,20 @@
+namespace WoofWare.NUnitTestRunner
+
+[<RequireQualifiedAccess>]
+module internal Array =
+
+    let allOkOrError<'o, 'e> (a : Result<'o, 'e>[]) : Result<'o[], 'o[] * 'e[]> =
+        let oks = ResizeArray ()
+        let errors = ResizeArray ()
+
+        for i in a do
+            match i with
+            | Error e -> errors.Add e
+            | Ok o -> oks.Add o
+
+        let oks = oks.ToArray ()
+
+        if errors.Count = 0 then
+            Ok oks
+        else
+            Error (oks, errors.ToArray ())