anchor.diff:  
   
   { TKMRunnerCachePerformanceTest.TKMRDeliveryBidKeyComparer }
  -function TKMRunnerCachePerformanceTest.TKMRDeliveryBidKeyComparer.Compare(const Left, Right: TKMRDeliveryBidKey): Integer;
  +function TKMRunnerCachePerformance.TKMRDeliveryBidKeyComparer.Compare(const Left, Right: TKMRDeliveryBidKey): Integer;
   begin
     //  Result := Left.GetHashCode - Right.GetHashCode;
     if Left.FromP = Right.FromP then
  
positive.code: 
  
  { TKMRunnerCachePerformanceTest }
  procedure TKMRunnerCachePerformanceTest.Execute(aRun: Integer);
  const
    SIZE = 13;
    SIZE_HUGE = 100000000; //100 millions
  
negative.code: //  gLog.MessageTypes := [];
  end;
  
  procedure TKMRunnerCachePerformance.TearDown;
  begin
    // inherited;
  
  