StartTest method
Informs the result that a test will be started.

Applies to
TTestResult

Declaration
Procedure StartTest(test: TTestCase);

Description
Notify any registered ITestListener that a test was started.

Implementation

procedure TTestResult.StartTest(test: TTestCase);
var
  i: integer;
begin
  assert(assigned(test));
  assert(assigned(fListeners));

  inc(fRunTests);
  for i := 0 to fListeners.count - 1 do
  begin
    (fListeners[i] as ITestListener).StartTest(test);
  end;
End;


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