TestingStarts method
Notify listeners when testing starts

Applies to
TTestResult

Declaration
Procedure TestingStarts;

Implementation

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


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