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:   CheckEqualsList(L, ArrayList([True, 3.14, 'abc', 1]));
  end;
  
  procedure TTestCaseArrayList.TestSort;
  var
    L: IList;
  begin
  
negative.code: end;
  
  initialization
    TestFramework.RegisterTest(TArrayListTestCase.Suite);
  
  end.
  