Speculative change

AltCover.Engine/CecilEx.fs

@@ -15,6 +15,9 @@ open Mono.Cecil
 open Mono.Cecil.Cil
 
 module AssemblyConstants =
+  let internal extensions =
+    [ ".dll"; ".exe"; ".winmd" ]
+
   let internal nugetCache =
     Path.Combine(
       Path.Combine(
@@ -86,6 +89,40 @@ type internal AssemblyResolver() as self =
     else
       base.Resolve name
 
+  [<SuppressMessage("Gendarme.Rules.Exceptions",
+                    "UseObjectDisposedExceptionRule",
+                    Justification = "Not important")>]
+  override self.SearchDirectory
+    (
+      (name: AssemblyNameReference),
+      (directories: IEnumerable<string>),
+      (parameters: ReaderParameters)
+    ) : AssemblyDefinition =
+    directories
+    |> Seq.choose (fun directory ->
+      AssemblyConstants.extensions
+      |> List.choose (fun extension -> // this line
+        let file =
+          Path.Combine(directory, name.Name + extension)
+
+        if File.Exists(file) then
+          try
+            if isNull parameters.AssemblyResolver then
+              parameters.AssemblyResolver <- self
+
+            Some(
+              ModuleDefinition
+                .ReadModule(file, parameters)
+                .Assembly
+            )
+          with :? System.BadImageFormatException ->
+            None
+        else
+          None)
+      |> List.tryHead)
+    |> Seq.tryHead
+    |> Option.defaultValue null
+
   static member private AssemblyRegister (name: string) (path: string) =
     let def = AssemblyResolver.ReadAssembly path // recursive
     AssemblyConstants.resolutionTable.[name] <- def
@@ -156,8 +193,9 @@ type internal AssemblyResolver() as self =
         |> Seq.filter (fun f ->
           let x = Path.GetExtension f
 
-          x.Equals(".exe", StringComparison.OrdinalIgnoreCase)
-          || x.Equals(".dll", StringComparison.OrdinalIgnoreCase))
+          AssemblyConstants.extensions
+          |> List.tryFind (fun ext -> x.Equals(ext, StringComparison.OrdinalIgnoreCase))
+          |> Option.isSome)
         |> Seq.filter (fun f ->
           y
             .ToString()
@@ -363,4 +401,13 @@ module internal CecilExtension =
     |> Seq.filter (fun i -> i.OpCode = OpCodes.Tail)
     |> Seq.iter (fun i ->
       i.OpCode <- OpCodes.Nop
-      i.Operand <- null)
+      i.Operand <- null)
+
+[<assembly: SuppressMessage("Gendarme.Rules.Correctness",
+                            "EnsureLocalDisposalRule",
+                            Scope = "member", // MethodDefinition
+                            Target =
+                              "<StartupCode$AltCover-Engine>.$CecilEx/Pipe #1 stage #1 at line 104@104::Invoke(System.String)",
+                            Justification =
+                              "The whole point is to return the value, transferring ownership")>]
+()

AltCover.Monitor.Tests/MonitorTest.fs

@@ -18,7 +18,7 @@ module MonitorTests =
         AltCover.SolutionRoot.location,
         "_Reports/MonitorTestWithAltCoverCoreRunner.net7.0.xml"
       ),
-      [ (260, 37); (260, 36) ] ]
+      [ (218, 35); (260, 37); (260, 36) ] ]
     |> List.filter (fst >> File.Exists)
     |> List.sortBy (fst >> File.GetCreationTimeUtc)
     |> List.last

AltCover.Tests/Expecto.fs

@@ -518,6 +518,8 @@ module ExpectoTestManifest =
        "Tests2.ShouldBeAbleToTellAnAssembly"
        Tests.AltCoverTests2.ShouldBeAbleToValidateAnAssembly,
        "Tests2.ShouldBeAbleToValidateAnAssembly"
+       Tests.AltCoverTests2.ShouldbeAbleToHandleWinmd,
+       "Tests2.ShouldbeAbleToHandleWinmd"
        Tests.AltCoverTests2.ShouldBeAbleToLocateAReference,
        "Tests2.ShouldBeAbleToLocateAReference"
        Tests.AltCoverTests2.ShouldBeAbleToPrepareTheAssembly,

AltCover.Tests/Tests2.fs

@@ -418,6 +418,20 @@ module AltCoverTests2 =
 
     Assert.That(x, Is.EqualTo(String.Empty, false))
 
+  [<Test>]
+  let ShouldbeAbleToHandleWinmd () =
+    use r = new AssemblyResolver()
+    let p = ReaderParameters()
+    let name = AssemblyNameReference("platform", Version("255.255.255.255"))
+    let path = Path.Combine(SolutionRoot.location, "ThirdParty")
+
+    // Force this call
+    let methodinfo = r.GetType().GetMethod("SearchDirectory")
+    let o = methodinfo.Invoke(r, [| name; [path]; p |])
+
+    use platform = o :?> AssemblyDefinition
+    test <@ platform.MainModule.FileName = Path.Combine(path, "platform.winmd") @>
+
   [<Test>]
   let ShouldBeAbleToLocateAReference () =
     let where =