TTestSuite

type TTestSuite = class(TTest)

protected

  procedure SetOwnTestOnTests();

  function DoAddTest();

  function GetTestName; override;

  function GetTestSuiteName; override;

  function GetEnableIgnores; override;

  procedure SetTestSuiteName(); override;

  procedure SetTestName(); virtual;

  procedure SetEnableIgnores(); override;

  property OwnsTests: Boolean; [rw]

public

  constructor Create();

  destructor Destroy; override;

  function CountTestCases; override;

  function GetChildTestCount; override;

  function GetChildTest(); override;

  procedure Run(); override;

  procedure RunTest(); virtual;

  procedure AddTest(); virtual; overload;

  procedure AddTestSuiteFromClass(); virtual;

  class function Warning();

  property Test []: TTest; default; [r]

  property ChildTestCount: Integer; [r]

  property TestSuiteName: string; [rw]

  property TestName: string; [rw]

  property Tests: TFPList; [r] deprecated ;

end;

TTestSuite

TTest

TObject