TestingEnds method
Notify listeners when testing ends

Applies to
TTestResult

Declaration
Procedure TestingEnds;

Implementation

procedure TTestResult.TestingEnds;
var
  i :Integer;
begin
  for i := 0 to fListeners.count - 1 do
  begin
    (fListeners[i] as ITestListener).TestingEnds(self);
  end;
End;


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