TestSuiteOf Routine
Create a test suite out of the published methods in a TTestCase descendant

Unit
TestFramework

Declaration
Function TestSuiteOf(AClass: TTestCaseClass): ITestSuite;

Parameters
aclass The TTestCase class to get the test methods from.

See Also




Use TTestCase.Suite instead.

Implementation

function TestSuiteOf(AClass: TTestCaseClass): ITestSuite;
begin
  Result := TTestSuite.Create(AClass)
End;


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