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.
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