paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-10 22:17:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

* patch from 14800, check for interface not null assertion

Browse Source 
git-svn-id: trunk@13905 -
This commit is contained in:
marco 2009-10-17 21:12:34 +00:00
parent e6d0c0a2ad
commit d709e9d1ab
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-fpcunit/src/DUnitCompatibleInterface.inc
View File

@ -16,6 +16,7 @@
class procedure CheckNull(obj: IUnknown; msg: string = ''); overload;
class procedure CheckNull(obj: TObject; msg: string = ''); overload;
class procedure CheckNotNull(obj: TObject; msg: string = ''); overload;
class procedure CheckNotNull(obj: IUnknown; msg: string = ''); overload; virtual;
class procedure CheckIs(obj :TObject; pClass: TClass; msg: string = ''); overload;
class procedure CheckSame(expected, actual: TObject; msg: string = ''); overload;
class procedure FailNotEquals(expected, actual: string; msg: string = ''; errorAddr: Pointer = nil); virtual;
@ -120,6 +121,11 @@ begin
AssertNotNull(msg, obj);
end;
class procedure TAssert.CheckNotNull(obj: IUnknown; msg: string);
begin
AssertNotNullIntf(msg, obj);
end;
class procedure TAssert.CheckIs(obj: TObject; pClass: TClass; msg: string);
begin
Assert(pClass <> nil);