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

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;


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