anchor.diff:  interface
   
   uses
  -  TestFrameWork, HproseCommon;
  +  TestFrameWork;
   
   type
     {$M+}
  
positive.code:   Check(L[6].Get(2) = 'c');
  end;
  
  initialization
    TestFramework.RegisterTest(TTestCaseArrayList.Suite);
  end.
  
negative.code:   published
      procedure TestCreate;
      procedure TestAdd;
      procedure TestAddAll;
      procedure TestInsert;
      procedure TestInsertRange;
    end;
  
  implementation
  
  uses
    HproseCommon;
  
  { TTestCaseArrayList }
  
  