anchor.diff:  interface
   
   uses
  -  TestFrameWork;
  +  TestFrameWork, HproseCommon;
   
   type
   
     TTestCaseArrayList = class(TTestCase)
  +  private
  +    procedure CheckEqualsList(Expected: IList; Actual: IList; Msg: string = '');
     published
       procedure TestCreate;
       procedure TestAdd;
  
positive.code:   L := ArrayList([1, 'abc', 3.14, True]);
    L2 := TArrayList.Create;
    for V in L do L2.Add(V);
    for I := 0 to L.Count - 1 do Check(L[I] = L2[I]);
  end;
  {$IFEND}
  
  initialization
    TestFramework.RegisterTest(TTestCaseArrayList.Suite);
  
negative.code: {$IF RTLVersion >= 17.00}  // Delphi 2005 or later
      procedure TestForIn;
  {$IFEND}
      procedure TestSplit;
    end;
  
  implementation
  
  { TTestCaseArrayList }
  
  procedure TTestCaseArrayList.CheckEqualsList(Expected: IList; Actual: IList; Msg: string);
  var
    I: Integer;
  begin
    Check(Expected.Count = Actual.Count, Msg);
    for I := 0 to 6 do Check(Expected[I] = Actual[I], Msg);
  end;
  
  procedure TTestCaseArrayList.TestCreate;
  var
  