Add ability to run only specific tests (#19)

Semver: minor
Resolves #16

Author: Alxandr

src/Directory.Build.props

@@ -8,8 +8,8 @@
   </PropertyGroup>
 
   <ItemGroup>
-    <PackageReference Include="SourceLink.Create.CommandLine" Version="[2.5.0]" PrivateAssets="all" />
-    <PackageReference Include="SourceLink.Test" Version="[2.5.0]" PrivateAssets="all" />
-    <DotNetCliToolReference Include="dotnet-sourcelink" Version="[2.5.0]" />
+    <PackageReference Include="SourceLink.Create.CommandLine" Version="[2.8.3]" PrivateAssets="all" />
+    <PackageReference Include="SourceLink.Test" Version="[2.8.3]" PrivateAssets="all" />
+    <DotNetCliToolReference Include="dotnet-sourcelink" Version="[2.8.3]" />
   </ItemGroup>
 </Project>

src/YoloDev.Expecto.TestSdk/adapter.fs

@@ -46,7 +46,22 @@ type VsTestAdapter () =
   interface ITestExecutor with
     member x.Cancel () = cts.Cancel ()
 
-    member x.RunTests (tests: TestCase seq, runContext: IRunContext, frameworkHandle: IFrameworkHandle) : unit = failwith "Not implemented (run testcases)"
+    member x.RunTests (tests: TestCase seq, runContext: IRunContext, frameworkHandle: IFrameworkHandle) : unit = 
+      let tests = Guard.argNotNull "tests" tests
+      let runContext = Guard.argNotNull "runContext" runContext
+      let frameworkHandle = Guard.argNotNull "frameworkHandle" frameworkHandle
+
+      let stopwatch = Stopwatch.StartNew ()
+      let logger = Logger (frameworkHandle, stopwatch)
+
+      let runSettings =
+        Option.ofObj runContext
+        |> Option.bind (fun c -> Option.ofObj c.RunSettings)
+        |> Option.map RunSettings.read
+        |> Option.defaultValue RunSettings.defaultSettings
+      
+      Execution.runSpecifiedTests logger frameworkHandle tests
+      |> Async.RunSynchronously
 
     member x.RunTests (sources: string seq, runContext: IRunContext, frameworkHandle: IFrameworkHandle) : unit =
       let sources = Guard.argNotNull "sources" sources

src/YoloDev.Expecto.TestSdk/execution.fs

@@ -133,8 +133,15 @@ module Execution =
     let config = { ExpectoConfig.defaultConfig with printer = printAdapter }
     Expecto.Logging.Global.initialise <| { Expecto.Logging.Global.defaultConfig with getLogger = getLogger }
 
-    // todo: filter test
-    let tests = ExpectoTest.test test
+    let testNames =
+      cases
+      |> Seq.map (fun c -> c.DisplayName)
+      |> Set.ofSeq
+
+    let tests = 
+      ExpectoTest.test test
+      |> Expecto.Test.filter (fun name -> Seq.contains name testNames)
+
     let duplicates = duplicatedNames tests
     match duplicates with
     | [] -> Expecto.Impl.runEval config tests |> Async.Ignore
@@ -152,9 +159,30 @@ module Execution =
         |> List.ofSeq
       runMatchingTests logger test cases frameworkHandle
 
+  let private runSpecifiedTestsForSource logger frameworkHandle source (tests: TestCase seq) =
+    let nameSet = tests |> Seq.map (fun t -> t.FullyQualifiedName) |> Set.ofSeq
+    match Discovery.discoverTestForSource logger source with
+    | None -> async.Zero ()
+    | Some test ->
+      let cases =
+        Discovery.getTestCasesFromTest logger test
+        |> Seq.map ExpectoTestCase.case
+        |> Seq.filter (fun c -> Set.contains c.FullyQualifiedName nameSet)
+        |> List.ofSeq
+      
+      runMatchingTests logger test cases frameworkHandle
+  
   let runTests logger frameworkHandle sources =
     async {
       for source in sources do
         do! runTestsForSource logger frameworkHandle source
     }
+  
+  let runSpecifiedTests logger frameworkHandle (tests: TestCase seq) =
+    let bySource = tests |> Seq.groupBy (fun t -> t.Source)
+    
+    async {
+      for source, tests in bySource do
+        do! runSpecifiedTestsForSource logger frameworkHandle source tests
+    }