anchor.diff:          |> List.max
   
       let align (d:int) offset = d.ToString().PadLeft(offset + digits)
  -    
  +
       eventX "EXPECTO?! Summary...\nPassed: {passedCount}{passed}\nIgnored: {ignoredCount}{ignored}\nFailed: {failedCount}{failed}\nErrored: {erroredCount}{errored}"
       >> setField "passed" passed
       >> setField "passedCount" (align passedCount 1)
  
positive.code:       static member errorCode (c: TestResultSummary) =
          (if c.failed.Length > 0 then 1 else 0) ||| (if c.errored.Length > 0 then 2 else 0)
  
    [<StructuredFormatDisplay("{description}")>]
    type TestRunResult =
     { name     : string
       location : SourceLocation
       result   : TestResult
  
negative.code:   let createSummaryMessage (summary: TestResultSummary) =
      let handleLineBreaks elements =
          elements
          |> List.map (fun n -> n.name)
          |> List.map (fun x -> "\n\t" + x)
          |> String.concat ""
  
  