File tree Expand file tree Collapse file tree 2 files changed +9
-1
lines changed
Expand file tree Collapse file tree 2 files changed +9
-1
lines changed Original file line number Diff line number Diff line change @@ -934,7 +934,6 @@ function TEnumerableBase<T>.Contains(const value: T;
934934 item: T;
935935begin
936936{ $IFDEF SPRING_ENABLE_GUARD}
937- Guard.CheckNotNull<T>(value , ' value' );
938937 Guard.CheckNotNull(Assigned(comparer), ' comparer' );
939938{ $ENDIF}
940939
Original file line number Diff line number Diff line change @@ -533,6 +533,7 @@ TTestCollectionList = class(TTestCase)
533533 TTestEnumerable = class (TTestCase)
534534 published
535535 procedure TestAggregate ;
536+ procedure TestContains_Nil ;
536537 procedure TestToArray ;
537538
538539 procedure TestTryMethodsReturnDefaultWhenFalse ;
@@ -3482,6 +3483,14 @@ procedure TTestEnumerable.TestAggregate;
34823483 CheckEquals(' dog lazy the over jumps fox brown quick the' , reversed);
34833484end ;
34843485
3486+ procedure TTestEnumerable.TestContains_Nil ;
3487+ var
3488+ sut: IEnumerable<TObject>;
3489+ begin
3490+ sut := TEnumerable.Repeated<TObject>(nil , 1 );
3491+ CheckTrue(sut.Contains(nil ));
3492+ end ;
3493+
34853494procedure TTestEnumerable.TestToArray ;
34863495var
34873496 sut: IEnumerable<Integer>;
You can’t perform that action at this time.
0 commit comments