paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 13:29:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Graeme Geldenhuys: New fail method with address pointer

Browse Source 
git-svn-id: trunk@30316 -
This commit is contained in:
michael 2015-03-24 13:43:15 +00:00
parent e227d76b7d
commit 0e1cc092f2
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-fpcunit/src/fpcunit.pp
View File

@ -81,7 +81,9 @@ type
public public
class procedure Fail(const AMessage: string; AErrorAddrs: Pointer = nil); class procedure Fail(const AMessage: string; AErrorAddrs: Pointer = nil);
class procedure Fail(const AFmt: string; Args : Array of const; AErrorAddrs: Pointer = nil); class procedure Fail(const AFmt: string; Args : Array of const; AErrorAddrs: Pointer = nil);
class procedure FailEquals(const expected, actual: string; const ErrorMsg: string = ''; AErrorAddrs: Pointer = nil);
class procedure FailNotEquals(const expected, actual: string; const ErrorMsg: string = ''; AErrorAddrs: Pointer = nil); class procedure FailNotEquals(const expected, actual: string; const ErrorMsg: string = ''; AErrorAddrs: Pointer = nil);
class procedure AssertTrue(const AMessage: string; ACondition: boolean); overload; class procedure AssertTrue(const AMessage: string; ACondition: boolean); overload;
class procedure AssertTrue(ACondition: boolean); overload; class procedure AssertTrue(ACondition: boolean); overload;
class procedure AssertFalse(const AMessage: string; ACondition: boolean); overload; class procedure AssertFalse(const AMessage: string; ACondition: boolean); overload;
@ -530,12 +532,16 @@ begin
raise EAssertionFailedError.CreateFmt(AFmt,Args) at AErrorAddrs; raise EAssertionFailedError.CreateFmt(AFmt,Args) at AErrorAddrs;
end; end;
class procedure TAssert.FailEquals(const expected, actual: string; const ErrorMsg: string; AErrorAddrs: Pointer);
begin
Fail(EqualsErrorMessage(expected, actual, ErrorMsg), AErrorAddrs);
end;
class procedure TAssert.FailNotEquals(const expected, actual: string; const ErrorMsg: string; AErrorAddrs: Pointer); class procedure TAssert.FailNotEquals(const expected, actual: string; const ErrorMsg: string; AErrorAddrs: Pointer);
begin begin
Fail(NotEqualsErrorMessage(expected, actual, ErrorMsg), AErrorAddrs); Fail(NotEqualsErrorMessage(expected, actual, ErrorMsg), AErrorAddrs);
end; end;
class procedure TAssert.AssertTrue(const AMessage: string; ACondition: boolean); class procedure TAssert.AssertTrue(const AMessage: string; ACondition: boolean);
begin begin
if (not ACondition) then if (not ACondition) then