Applies toTTextTestListener
DeclarationProcedure AddFailure(failure: TTestFailure); Implementation
procedure TTextTestListener.AddFailure(failure :TTestFailure); begin write('F'); End;