RegisterTest Routine
Register a test.

Unit
TestFramework

Declaration
Procedure RegisterTest(SuitePath: string; test: ITest);

Description
Add a test to an arbitraty test suite in the test hierarchy. The SuitePath is a dot-separated list of suite names. The first name is taken to be a top level suite, the second a child of the first, and so on. Test suites are created if they don't exist. The test is added to the suite indicated by the last names.

Parameters
SuitePath Dot separated list of test suite names, indicating a path from the root of the test hierarchy. Tests are added to the suite indicated by the last name.
test The test to register.

Implementation

procedure RegisterTest(SuitePath: string; test: ITest);
begin
  assert(assigned(test));

  if not assigned(TheSuite) then
  begin
    TheSuite := TTestSuite.Create('Unit Tests');
  end;
  RegisterTestInSuite(TheSuite, SuitePath, test);
End;


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