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;


HTML generated by Time2HELP
http://www.time2help.com