NotEqualsErrorMessage method

Applies to
TTestCase

Declaration
Function NotEqualsErrorMessage(expected, actual, msg: string): string;

Implementation

function TTestCase.NotEqualsErrorMessage(expected, actual :string; msg :string) :string;
begin
    if (msg <> '') then
        msg := msg + ', ';
    Result := Format('%s expected:<%s> but was:<%s>', [msg, expected, actual])
End;


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