MakeTestSuites Routine |
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
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; |
|