FailNotSame method |
Applies to
TTestCase
Declaration
Procedure FailNotSame(expected, actual: string; msg: string = ''; errorAddr :Pointer = nil);
Implementation
procedure TTestCase.FailNotSame( expected, actual :string; msg :string = ''; errorAddr :Pointer = nil); begin Fail(NotSameErrorMessage(expected, actual, msg), errorAddr); End; |
|