anchor.diff:    Check(L.Remove(True) = 2);
   end;
   
  -procedure TTestCaseArrayList.TestClear;
  +procedure TArrayListTestCase.TestClear;
   var
     L: IList;
   begin
  
positive.code:   Check(L.Contains('abc') = True);
  end;
  
  procedure TTestCaseArrayList.TestIndexOf;
  var
    L: IList;
  begin
  
negative.code: end;
  
  initialization
    TestFramework.RegisterTest(TArrayListTestCase.Suite);
  
  end.
  