Applies toTTextTestListener
DeclarationProcedure StartTest(test :ITest); Implementation
procedure TTextTestListener.StartTest(test :ITest); begin write('.'); End;