MakeTestSuites Routine
Create a test suite hierarchy out of a series of TTestCase descendants

Unit
TestFramework

Declaration
Function MakeTestSuites(name :string; const classes :array of TTestCaseClass): ITestSuite;

Parameters
name The name the ITestSuite will have.
classes The series of TTestCase classes that will compose the suite.

See Also




Use TTestCase.Create(string, array of ITest) instead

Implementation

function  MakeTestSuites(name :string; const classes :array of TTestCaseClass): ITestSuite;
var
  i :Integer;
begin
   result := TTestSuite.Create(name);
   for i := Low(classes) to High(classes) do begin
      result.addTest(testSuiteOf(classes[i]));
   end;
End;


HTML generated by Time2HELP
http://www.time2help.com