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

* Add RegisterTests in suite

Browse Source 
git-svn-id: trunk@26858 -
This commit is contained in:
michael 2014-02-23 20:05:38 +00:00
parent 00bac4d8e7
commit 96ba1090e0
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-fpcunit/src/testregistry.pp
View File

@ -32,6 +32,7 @@ procedure RegisterTest(ASuitePath: String; ATestClass: TTestCaseClass); overload
procedure RegisterTest(ASuitePath: String; ATest: TTest); overload;
procedure RegisterTests(ATests: Array of TTestCaseClass);
procedure RegisterTests(ASuitePath: String; ATests: Array of TTestCaseClass);
procedure RegisterTestDecorator(ADecoratorClass: TTestDecoratorClass; ATestClass: TTestCaseClass);
@ -143,6 +144,17 @@ begin
end;
end;
procedure RegisterTests(ASuitePath: String; ATests: Array of TTestCaseClass);
var
i: integer;
begin
for i := Low(ATests) to High(ATests) do
if Assigned(ATests[i]) then
begin
RegisterTest(ASuitePath,ATests[i]);
end;
end;
function NumberOfRegisteredTests: longint;
begin