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;


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