anchor.diff:    CheckEqualsList(L, HashedList([1, 2, 3, 4, 5, 6, 7, 8, 9]));
   end;
   
  -procedure TTestCaseHashedList.TestShuffle;
  +procedure THashedListTestCase.TestShuffle;
   var
     Src, Dest: IList;
     Statistics: IList;
  
positive.code:   L.EndWrite;
  end;
  
  procedure TTestCaseHashedList.TestAdd;
  var
    L: IHashedList;
  begin
  
negative.code: {$IFEND}
  
  
  procedure THashedListTestCase.TestSplit;
  var
    S: String;
  begin
  