Applies toTTestSuite
DeclarationProcedure AddTest(ATest: ITest);
procedure TTestSuite.AddTest(ATest: ITest); begin Assert(Assigned(ATest)); fTests.Add(ATest); End;