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; |
|