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;


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