StartTest method |
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; |
|