anchor.diff:  
       let get result =
         match counts.TryGetValue (TestResult.tag result) with
  -      | true, v -> v |> Seq.map (fun r -> r.name) |> Seq.toList
  +      | true, v -> v |> Seq.toList
         | _ -> List.empty
   
       { passed   = get TestResult.Passed
  
positive.code:   let createSummaryMessage (summary: TestResultSummary) =
      let handleLineBreaks elements =
          elements
          |> List.map (fun x -> "\n\t" + x)
          |> String.concat ""
  
  
negative.code: 
    [<StructuredFormatDisplay("{description}")>]
    type TestResultSummary =
      { passed   : TestRunResult list
        ignored  : TestRunResult list
        failed   : TestRunResult list
        errored  : TestRunResult list
        duration : TimeSpan }
  
        member x.total =
  