anchor.diff:    end;
   end;
   
  -procedure TTestCaseHashedList.TestVariantPut;
  +procedure THashedListTestCase.TestVariantPut;
   var
     L: IList;
     N: Integer;
  
positive.code:   );
  end;
  
  procedure TTestCaseHashedList.TestJoin;
  var
    S: String;
    L: IList;
  
negative.code:   Check(L.Get(8) = 3);
  end;
  
  procedure THashedListTestCase.TestInsert;
  var
    L: Variant;
    L2: IHashedList;
  