anchor.diff:          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)
   
  
positive.code:                 setupReport (fun r -> 
                      r.ReportExample (anExampleNamed "Example") Pending)
  
                  it "prints '1 pending'" (fun c ->
                      c.Lines |> should have.element (toBe matchRegex "1 pending"))
              ]
  
              context "With failure 'Failure msg' reported" [
  
negative.code:                     >> r.ReportExample (anExampleNamed "Test2") aFailure)
  
                  it "does not print 'Test1'" <| fun c ->
                      c.ShouldNotHaveLineMatching "Test1"
  
                  it "prints 'Test2'" <| fun c ->
                      c.ShouldHaveLineMatching "Test2"
              ]
          ]
      ]
  