CountEnabledTestCases method |
Applies to
TTestSuite
Declaration
Function CountEnabledTestCases: integer;
Returns
The number of enabled test cases.Implementation
function TTestSuite.CountEnabledTestCases: integer; var i: Integer; test: ITest; Total : Integer; begin assert(assigned(fTests)); Total := 0; if getEnabled then begin for i := 0 to fTests.Count - 1 do begin test := fTests[i] as ITest; Total := Total + test.CountEnabledTestCases; end; end; Result := Total; End; |
|