CheckNotEquals method |
Applies to
TTestCase
Declaration
Procedure CheckNotEquals(expected, actual :integer; msg :string = '');
Implementation
procedure TTestCase.CheckNotEquals(expected, actual :integer; msg :string = ''); begin if expected <> actual then FailNotEquals(IntToStr(expected), IntToStr(actual), msg, CallerAddr); End; |
|