PrintHeader method
Prints the header of the Report

Applies to
TTextTestListener

Declaration
Function PrintHeader(r :TTestResult): string;

Implementation

function TTextTestListener.PrintHeader(r :TTestResult):string;
begin
  result := '';
  if r.wasSuccessful then begin
      result := result + CRLF;
      result := result + format('OK: %d tests'+CRLF, [r.runCount]);
  end
  else begin
      result := result + CRLF;
      result := result + 'FAILURES!!!'+CRLF;
      result := result + 'Test Results:'+CRLF;
      result := result + format('Run:      %8d'+CRLF+'Failures: %8d'+CRLF+'Errors:   %8d'+CRLF,
                        [r.runCount, r.failureCount, r.errorCount]
                        );
  end
End;


HTML generated by Time2HELP
http://www.time2help.com