PrintHeader method |
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; |
|