Mitigate exception messages from tidying the recorder assembly

AltCover.Engine/Runner.fs

@@ -1486,6 +1486,8 @@ module internal Runner =
               |> J.getFirstOperandAsNumber
               |> enum
 
+            use _ = fst pair
+
             let hits =
               Dictionary<string, Dictionary<int, PointVisit>>()
 

AltCover.Engine/Strings.eo.resx

@@ -471,4 +471,7 @@ Se la opcio ne ĉeestas, tiam la defaŭlta estas 'OC'.</value>
   <data name="portable" xml:space="preserve">
     <value>Laŭvola: porteblaj operacioj - priraporta raporto, kontroldosiero kaj registritaj datumoj samlokaj kun la registrilo.</value>
   </data>
+  <data name="FailedToDelete" xml:space="preserve">
+    <value>Malsukcesis forigi dosieron {0}</value>
+  </data>
 </root>

AltCover.Engine/Strings.resx

@@ -475,4 +475,7 @@ If the option is not present, then the default is 'OC'.</value>
   <data name="portable" xml:space="preserve">
     <value>Optional: portable operations - coverage report, control file and recorded data co-located with the recorder assembly</value>
   </data>
+  <data name="FailedToDelete" xml:space="preserve">
+    <value>Failed to delete file {0}</value>
+  </data>
 </root>

AltCover.Engine/Tasks.fs

@@ -540,13 +540,20 @@ type RetryDelete() =
                     Justification = "MSBuild tasks use arrays")>]
   member val Files: string array = [||] with get, set
 
-  member internal self.Write message =
-    ``base``.Log.LogMessage(MessageImportance.High, message)
+  [<SuppressMessage("Gendarme.Rules.Performance",
+                    "AvoidUnusedParametersRule",
+                    Justification = "Replace the raw exception dump")>]
+  member internal self.Write0 (o: string->unit) (f:string) (_:string) : unit =
+    CommandLine.Format.Local("FailedToDelete", f)
+    |> o
+
+  member internal self.Write (f:string) (dummy:string) : unit =
+    self.Write0 (``base``.Log.LogWarning) f dummy
 
   override self.Execute() =
     if self.Files.IsNotNull then
       self.Files
       |> Seq.filter File.Exists
-      |> Seq.iter (CommandLine.I.doRetry File.Delete self.Write 10 1000 0)
+      |> Seq.iter (fun f -> (CommandLine.I.doRetry File.Delete (self.Write f) 100 100 0 f))
 
     true

AltCover.Tests/Tests3.fs

@@ -4899,14 +4899,23 @@ module AltCoverTests3 =
     monitor ("Hello")
     test <@ builder.ToString() = "Hello" @>
 
+    let write0 =
+      subject
+        .GetType()
+        .GetMethod("Write0", BindingFlags.NonPublic ||| BindingFlags.Instance)
+
+    let mutable written = "written"
+    write0.Invoke(subject, [| (fun x -> written <- x); "xx"; "yy" |]) |> ignore
+    test <@ written = "Failed to delete file xx" @>
+
     let write =
       subject
         .GetType()
         .GetMethod("Write", BindingFlags.NonPublic ||| BindingFlags.Instance)
 
     let ex =
       Assert.Throws<TargetInvocationException>(fun () ->
-        write.Invoke(subject, [| "xx" |]) |> ignore)
+        write.Invoke(subject, [| "xx"; "yy" |]) |> ignore)
 
     test <@ ex.InnerException.GetType().FullName = "System.InvalidOperationException" @>
 // Recorder.fs => Recorder.Tests