RunBare method |
Applies to
TRepeatedTest
Declaration
Procedure RunBare(ATestResult: TTestResult);
Implementation
procedure TRepeatedTest.RunBare(ATestResult: TTestResult); var i: integer; begin assert(assigned(ATestResult)); for i := 0 to FTimesRepeat - 1 do begin if ATestResult.shouldStop then Break; inherited RunBare(ATestResult); end; End; |
|