Applies toTTextTestListener
DeclarationProcedure AddError(error: TTestFailure); Implementation
procedure TTextTestListener.AddError( error :TTestFailure); begin write('E'); End;