anchor.diff:      
           member this.suggestSelectors selector suggestions = consoleReporter.suggestSelectors selector suggestions
       
  -        member this.testStart id = consoleReporter.describe (String.Format("##teamcity[testStarted name='{0}']", (tcFriendlyMessage id)))
  -    
  -        member this.testEnd id = consoleReporter.describe (String.Format("##teamcity[testFinished name='{0}']", (tcFriendlyMessage id)))
  +        member this.testStart id = teamcityReport (sprintf "testStarted name='%s'" (tcFriendlyMessage id))
  +    
  +        member this.testEnd id = teamcityReport (sprintf "testFinished name='%s'" (tcFriendlyMessage id))
   
           member this.quit () = ()
           
  
positive.code:             if not (Array.isEmpty ss) then
                  image <- String.Format("canopy-image({0})", Convert.ToBase64String(ss))
                  
              consoleReporter.describe (String.Format("##teamcity[testFailed name='{0}' message='{1}' details='{3}']",
                  (tcFriendlyMessage id),
                  (tcFriendlyMessage ex.Message),
                  (tcFriendlyMessage ex.StackTrace),
                  (tcFriendlyMessage image)))
              consoleReporter.fail ex id ss
      
          member this.describe d = 
              consoleReporter.describe (String.Format("##teamcity[message text='{0}' status='NORMAL']", (tcFriendlyMessage d)))
              consoleReporter.describe d          
      
          member this.contextStart c = 
              consoleReporter.describe (String.Format("##teamcity[testSuiteStarted name='{0}']", (tcFriendlyMessage c)))
              consoleReporter.contextStart c
      
          member this.contextEnd c = 
              consoleReporter.describe (String.Format("##teamcity[testSuiteFinished name='{0}']", (tcFriendlyMessage c)))
              consoleReporter.contextEnd c
      
          member this.summary minutes seconds passed failed = consoleReporter.summary minutes seconds passed failed        
  
negative.code:         let message = message.Replace("]", "|]")
          message
  
      let teamcityReport text =
          let temcityReport = sprintf "##teamcity[%s flowId='%s']" text flowId
          consoleReporter.describe temcityReport
  
      interface IReporter with               
          member this.pass () = consoleReporter.pass ()
      
  