From 96ba1090e0b72411b77dea7964e07e8a9e8fdba6 Mon Sep 17 00:00:00 2001 From: michael Date: Sun, 23 Feb 2014 20:05:38 +0000 Subject: [PATCH] * Add RegisterTests in suite git-svn-id: trunk@26858 - --- packages/fcl-fpcunit/src/testregistry.pp | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/packages/fcl-fpcunit/src/testregistry.pp b/packages/fcl-fpcunit/src/testregistry.pp index f5780ca65d..976a7a0e7e 100644 --- a/packages/fcl-fpcunit/src/testregistry.pp +++ b/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