anchor.diff:              itBehavesLikeATestReporter<TreeReporter.T>()
   
               context "With no errors reported" [
  -                before (fun c ->
  -                    let r = getSubject<TreeReporter.T> c
  -                    let b = c.Get<StringBuilder> "builder"
  -                    let report = 
  -                        r.Zero
  -                        |> r.ReportExample anExample Success
  -                    b.Clear() |> ignore
  -                    report |> r.EndTestRun |> ignore
  -                )
  +                setupReport (fun r -> r.ReportExample anExample Success)
   
                   it "writes one line" (fun c ->
                       c.Lines.Length |> should equal 1
  
positive.code:     member ctx.Lines =
          let chars = [|"\r";"\n"|]
          ctx.Builder.ToString().Split(chars, System.StringSplitOptions.RemoveEmptyEntries);
  
  let itBehavesLikeATestReporter<'T> () =
      let getSubject = getSubject<'T>
  
negative.code:             ]
  
              context "With errors reported" [
                  setupReport (fun r ->
                      r.ReportExample anExample aFailure)
  
                  it "writes more than one line" (fun c ->
                      c.Lines.Length |> should be.greaterThan 1)
  