anchor.diff:      member ctx.Lines =
           let chars = [|"\r";"\n"|]
           ctx.Builder.ToString().Split(chars, System.StringSplitOptions.RemoveEmptyEntries);
  +       
  +    member ctx.Report f =
  +        let r = getSubject<TreeReporter.T> ctx
  +        let report = r.Zero |> (f r)
  +        ctx.Builder.Clear() |> ignore
  +        report |> r.EndTestRun |> ignore
  +
  +let setupReport f = before (fun c -> c.Report f)
   
   let itBehavesLikeATestReporter<'T> () =
       let getSubject = getSubject<'T>
  
positive.code:             ]
  
              context "With errors reported" [
                  before (fun c ->
                      let r = getSubject<TreeReporter.T> c
                      let b = c.Get<StringBuilder> "builder"
                      let report = 
                          r.Zero
                          |> r.ReportExample anExample aFailure
                      b.Clear() |> ignore
                      report |> r.EndTestRun |> ignore
                  )
  
                  it "writes more than one line" (fun c ->
                      c.Lines.Length |> should be.greaterThan 1)
  
negative.code:             ]
  
              context "With two errors reported" [
                  setupReport (fun r ->
                      r.ReportExample anExample aFailure
                      >> r.ReportExample anExample aFailure)
  
                  it "Does print errors" (fun c ->
                      c?builder.ToString() |> should matchRegex "2 failed"
                  )
              ]
  
              context "with two examples, one fails" [
                  setupReport (fun r ->
                      r.ReportExample (anExampleNamed "Test1") Success
                      >> r.ReportExample (anExampleNamed "Test2") aFailure)
  
                  it "does not print 'Test1'" <| fun c ->
                      c.Lines |> shouldNot have.element (toBe matchRegex "Test1")
  
                  it "prints 'Test2'" <| fun c ->
                      c.Lines |> should have.element (toBe matchRegex "Test2")
              ]
  