anchor.diff:    CheckEqualsList(L, HashedList([True, 3.14, 'abc', 1]));
   end;
   
  -procedure TTestCaseHashedList.TestSort;
  +procedure THashedListTestCase.TestSort;
   var
     L: IList;
   begin
  
positive.code:   Check(L[6].Get(2) = 'c');
  end;
  
  procedure TTestCaseHashedList.TestAddAll;
  var
    L: Variant;
  begin
  
negative.code:   Check(L.LastIndexOf('hello') = -1);
  end;
  
  procedure THashedListTestCase.TestDelete;
  var
    L: IList;
  begin
  