CheckEquals method |
Applies to
TTestCase
Declaration
Procedure CheckEquals(expected, actual :double; delta :double = 0; msg :string = '');
Implementation
procedure TTestCase.CheckEquals( expected, actual :double; delta :double = 0; msg :string = ''); begin if (abs(expected-actual) > delta) then FailNotEquals(FloatToStr(expected), FloatToStr(actual), msg, CallerAddr); End; |
|