* Add RegisterTests in suite

git-svn-id: trunk@26858 -

packages/fcl-fpcunit/src/testregistry.pp

@@ -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