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