anchor.diff:                      >> r.ReportExample (anExampleNamed "Test2") aFailure)
   
                   it "does not print 'Test1'" <| fun c ->
  -                    c.Lines |> shouldNot have.element (toBe matchRegex "Test1")
  +                    c.ShouldNotHaveLineMatching "Test1"
   
                   it "prints 'Test2'" <| fun c ->
  -                    c.Lines |> should have.element (toBe matchRegex "Test2")
  +                    c.ShouldHaveLineMatching "Test2"
               ]
           ]
       ]
  
positive.code:                     c?builder.ToString() |> should matchRegex "1 failed" )
  
                  it "Prints the example name" (fun c ->
                      c.Lines |> should have.element (toBe matchRegex "Test1"))
  
                  it "Prints the example group name" (fun c ->
                      c.Lines |> should have.element (toBe matchRegex "Group"))
  
                  it "Prints 'Failure msg'" (fun c ->
                      c.Lines |> should have.element (toBe matchRegex "Failure msg"))
              ]
  
              context "With two errors reported" [
  
negative.code:         let report = r.Zero |> (f r)
          ctx.Builder.Clear() |> ignore
          report |> r.EndTestRun |> ignore
      member ctx.ShouldNotHaveLineMatching pattern =
          ctx.Lines |> shouldNot have.element (toBe matchRegex pattern)
      
      member ctx.ShouldHaveLineMatching pattern =
          ctx.Lines |> should have.element (toBe matchRegex pattern)
  
  let setupReport f = before (fun c -> c.Report f)
  
  