TestingEnds method |
Applies to
TTextTestListener
Declaration
Procedure TestingEnds(testResult :TTestResult);
Implementation
procedure TTextTestListener.TestingEnds(testResult :TTestResult); var h, m, s, l :Word; begin endTime := now; runTime := endTime-startTime; writeln; DecodeTime(runTime, h, m, s, l); writeln(Format('Time: %d:%2.2d:%2.2d.%d', [h, m, s, l])); writeln(Report(testResult)); writeln; End; |
|