anchor.diff:  module Fake.TeamCityHelper
   
   /// Encapsulates special chars
  -let inline EncapsulateSpecialChars text = 
  +let inline EncapsulateSpecialChars text =
       text
       |> replace "|" "||"
       |> replace "'" "|'"
  
positive.code: 
  /// Create  the build status.
  /// [omit]
  let buildStatus status message = 
      sprintf "##teamcity[buildStatus '%s' text='%s']" (EncapsulateSpecialChars status) (EncapsulateSpecialChars message)
  
  /// Reports the build status.
  
negative.code: let SetBuildNumber buildNumber = EncapsulateSpecialChars buildNumber |> sendToTeamCity "##teamcity[buildNumber '%s']"
  
  /// Reports a build statistic.
  let SetBuildStatistic key value =
      sprintf "##teamcity[buildStatisticValue key='%s' value='%s']" (EncapsulateSpecialChars key)
          (EncapsulateSpecialChars value) |> sendStrToTeamCity
  
  /// Reports a parameter value
  let SetTeamCityParameter name value =
      sprintf "##teamcity[setParameter name='%s' value='%s']" (EncapsulateSpecialChars name)
          (EncapsulateSpecialChars value) |> sendStrToTeamCity
  
  /// Reports a failed test.
  let TestFailed name message details =
      sprintf "##teamcity[testFailed name='%s' message='%s' details='%s']" (EncapsulateSpecialChars name)
          (EncapsulateSpecialChars message) (EncapsulateSpecialChars details) |> sendStrToTeamCity
  
  /// Reports a failed comparison.
  let ComparisonFailure name message details expected actual =
      sprintf
          "##teamcity[testFailed type='comparisonFailure' name='%s' message='%s' details='%s' expected='%s' actual='%s']"
          (EncapsulateSpecialChars name) (EncapsulateSpecialChars message) (EncapsulateSpecialChars details)
          (EncapsulateSpecialChars expected) (EncapsulateSpecialChars actual) |> sendStrToTeamCity
  
  /// The Version of the TeamCity server. This property can be used to determine the build is run within TeamCity.
  let TeamCityVersion = environVarOrNone "TEAMCITY_VERSION"
  