anchor.diff:      procedure TestRemove;
       procedure TestClear;
       procedure TestAssign;
  +    procedure TestToArray;
     end;
   
   implementation
  
positive.code:   for I := 0 to 3 do Check(L[I] = L2.Get(I));
  end;
  
  initialization
    TestFramework.RegisterTest(TTestCaseArrayList.Suite);
  
  
negative.code: 
  procedure TTestCaseArrayList.TestAssign;
  var
    L: IList;
    L2: Variant;
    I: Integer;
  begin
  