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

* Add Fail with format

Browse Source 
git-svn-id: trunk@26857 -
This commit is contained in:
michael 2014-02-23 20:04:43 +00:00
parent c2a9dccc14
commit 00bac4d8e7
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -80,6 +80,7 @@ type
TAssert = class(TTest)
public
class procedure Fail(const AMessage: string);
class procedure Fail(const AFmt: string; Args : Array of const);
class procedure AssertTrue(const AMessage: string; ACondition: boolean); overload;
class procedure AssertTrue(ACondition: boolean); overload;
class procedure AssertFalse(const AMessage: string; ACondition: boolean); overload;
@ -449,32 +450,38 @@ end;
{ TAssert }
class procedure TAssert.Fail(const AMessage: String);
class procedure TAssert.Fail(const AMessage: string);
begin
raise EAssertionFailedError.Create(AMessage);
end;
class procedure TAssert.Fail(const AFmt: string; Args: array of const);
begin
raise EAssertionFailedError.CreateFmt(AFmt,Args);
end;
class procedure TAssert.AssertTrue(const AMessage: String; ACondition: Boolean);
class procedure TAssert.AssertTrue(const AMessage: string; ACondition: boolean);
begin
if (not ACondition) then
Fail(AMessage);
end;
class procedure TAssert.AssertTrue(ACondition: Boolean);
class procedure TAssert.AssertTrue(ACondition: boolean);
begin
AssertTrue('', ACondition);
end;
class procedure TAssert.AssertFalse(const AMessage: String; ACondition: Boolean);
class procedure TAssert.AssertFalse(const AMessage: string; ACondition: boolean
);
begin
AssertTrue(AMessage, not ACondition);
end;
class procedure TAssert.AssertFalse(ACondition: Boolean);
class procedure TAssert.AssertFalse(ACondition: boolean);
begin
AssertFalse('', ACondition);
end;
@ -702,7 +709,7 @@ begin
end;
class procedure TAssert.AssertNullINtf(AInterface: IInterface);
class procedure TAssert.AssertNullIntf(AInterface: IInterface);
begin
AssertNull('', AInterface);
end;