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