Applies toTAbstractTest
DeclarationFunction CountEnabledTestCases: integer; Implementation
function TAbstractTest.CountEnabledTestCases: integer; begin if GetEnabled then Result := 1 else Result := 0 End;