CountTestCases method
Counts the number of test cases in the suite and sub-suites.

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;


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