TTest

type TTest = class(TObject)

protected

  FLastStep: TTestStep;

  function GetTestName; virtual;

  function GetTestSuiteName; virtual;

  function GetEnableIgnores; virtual;

  procedure SetTestSuiteName(); virtual; abstract;

  procedure SetEnableIgnores(); virtual; abstract;

public

  function CountTestCases; virtual;

  function GetChildTestCount; virtual;

  function GetChildTest(); virtual;

  function FindChildTest();

  function FindTest();

  procedure Run(); virtual;

  procedure Ignore();

published

  property TestName: string; [r]

  property TestSuiteName: string; [rw]

  property LastStep: TTestStep; [r]

  property EnableIgnores: Boolean; [rw]

end;

TTest

TObject