CheckSame method |
Applies to
TTestCase
Declaration
Procedure CheckSame(expected, actual :IUnknown; msg :string = '');
Implementation
procedure TTestCase.CheckSame(expected, actual: IUnknown; msg :string = ''); begin if (expected = actual) then exit; FailNotSame(PtrToStr(Pointer(expected)), PtrToStr(Pointer(actual)), msg, CallerAddr); End; |
|