anchor.diff:    for I := 0 to 6 do Check(L.Get(I) = L2[I]);
   end;
   
  -procedure TTestCaseArrayList.TestMove;
  +procedure TArrayListTestCase.TestMove;
   var
     L: Variant;
     L2: IArrayList;
  
positive.code:   for I := 0 to Expected.Count - 1 do Check(Expected[I] = Actual[I], Msg);
  end;
  
  procedure TTestCaseArrayList.TestCreate;
  var
    L: IArrayList;
  begin
  
negative.code:   end;
  end;
  
  procedure TArrayListTestCase.TestVariantPut;
  var
    L: IList;
    N: Integer;
  