anchor.diff:            logger.logWithAck Info (
               eventX "EXPECTO! {total} tests run in {duration} for {name} – {passes} passed, {ignores} ignored, {failures} failed, {errors} errored. {spirit}"
               >> setField "total" (List.sumBy (fun (_,r) -> r.count) summary.results |> commaString)
  -            >> setField "name" (summary.results
  -              |> List.map (fun (flatTest, _)  ->
  -                if flatTest.name.Contains("/") then
  -                  flatTest.name.Substring(0, flatTest.name.LastIndexOf "/")
  -                else
  -                  flatTest.name)
  -              |> commonAncestor )
  +            >> setField "name" commonAncestor
               >> setField "duration" summary.duration
               >> setField "passes" (List.sumBy (fun (_,r) -> r.count) summary.passed |> commaString)
               >> setField "ignores" (List.sumBy (fun (_,r) -> r.count) summary.ignored |> commaString)
  
positive.code:                 else
                    "miscellaneous"
  
              match parentNames with
              | [x] -> x
              | hd::tl ->
  
negative.code:       exn: string -> exn -> TimeSpan -> Async<unit>
        /// Prints a summary given the test result counts
        summary : ExpectoConfig -> TestRunSummary -> Async<unit> }
      
      static member printResult config (test:FlatTest) (result:TestSummary) =
        match result.result with
        | Passed -> config.printer.passed test.name result.duration
  