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