anchor.diff:        /// Prints a summary given the test result counts
         summary : TestResultSummary -> unit }
   
  -    static member private logger log =
  -      { beforeRun = fun _tests ->
  -          log Info (
  +    static member silent =
  +      {
  +        log = {Async=ref false}
  +        beforeRun = fun _ -> ()
  +        beforeEach = fun _ -> ()
  +        info = fun _ -> ()
  +        passed = fun _ _ -> ()
  +        ignored = fun _ _ -> ()
  +        failed = fun _ _ _ -> ()
  +        exn = fun _ _ _ -> ()
  +        summary = fun _ -> () }
  +
  +    static member Default =
  +      let log = {Async=ref false}
  +      {
  +        log = log
  +        beforeRun = fun _tests ->
  +          log.Write Info (
               eventX "EXPECTO? Running tests...")
   
           beforeEach = fun n ->
  -          log Debug (
  +          log.Write Debug (
               eventX "{testName} starting..."
               >> setField "testName" n)
   
           info = fun s ->
  -          log Info (eventX s)
  +          log.Write Info (eventX s)
   
           passed = fun n d ->
  -          log Debug (
  +          log.Write Debug (
               eventX "{testName} passed in {duration}."
               >> setField "testName" n
               >> setField "duration" d)
   
           ignored = fun n m ->
  -          log Debug (
  +          log.Write Debug (
               eventX "{testName} was ignored. {reason}"
               >> setField "testName" n
               >> setField "reason" m)
   
           failed = fun n m d ->
  -          log LogLevel.Error (
  +          log.Write LogLevel.Error (
               eventX "{testName} failed in {duration}. {message}"
               >> setField "testName" n
               >> setField "duration" d
               >> setField "message" m)
   
           exn = fun n e d ->
  -          log LogLevel.Error (
  +          log.Write LogLevel.Error (
               eventX "{testName} errored in {duration}"
               >> setField "testName" n
               >> setField "duration" d
  
positive.code:       errored  = get (TestResult.Error null)
        duration = results |> Seq.map (fun r -> r.duration) |> Seq.fold (+) TimeSpan.Zero }
  
    let logSummary (summary : TestResultSummary) =
      let handleLineBreaks elements = 
          let text = elements |> String.concat "\n\t"
          if text = "" then text else text + "\n"
  
negative.code:                 "( ರ Ĺ̯ ರೃ )"
                else
                  ""
            log.Write Info (
              eventX "EXPECTO! {total} tests run in {duration} – {passes} passed, {ignores} ignored, {failures} failed, {errors} errored. {spirit}"
              >> setField "total" summary.total
              >> setField "duration" summary.duration
  