anchor.diff:  
           member this.GetTestCount() = List.length this.Tests
   
  +/// Reports the given test results to [TeamCity](http://www.jetbrains.com/teamcity/)
   let reportToTeamCity testResults =
       StartTestSuite testResults.SuiteName
   
  
positive.code: ﻿module Fake.UnitTestHelper
  
  open System
  open Fake
  
  
  type TestStatus = 
  | Ok
  | Ignored of string * string
  | Failure of string * string
  
  type Test = {
      Name:string 
      RunTime: TimeSpan
      Status: TestStatus }
  
  type TestResults = {
      SuiteName : string
      Tests: Test list  }
  
negative.code: 
      FinishTestSuite testResults.SuiteName
  
  /// Reports the given test results to the detected build server
  let reportTestResults testResults =
      match buildServer with
      | TeamCity -> reportToTeamCity testResults
  