anchor.diff:    for I := 0 to 3 do Check(L.Get(I) = L2[I]);
   end;
   
  -procedure TTestCaseArrayList.TestContains;
  +procedure TArrayListTestCase.TestContains;
   var
     L: IList;
   begin
  
positive.code:   Check(L.Remove(True) = 2);
  end;
  
  procedure TTestCaseArrayList.TestClear;
  var
    L: IList;
  begin
  
negative.code:   for I := 0 to 3 do Check(L.Get(I) = L2[I]);
  end;
  
  procedure TArrayListTestCase.TestExchange;
  var
    L: Variant;
    L2: IArrayList;
  