TTestResult

type TTestResult = class(TObject)

protected

  FRunTests: Integer;

  FFailures: TFPList;

  FIgnoredTests: TFPList;

  FErrors: TFPList;

  FListeners: TFPList;

  FSkippedTests: TFPList;

  FStartingTime: TDateTime;

  function GetNumErrors;

  function GetNumFailures;

  function GetNumIgnoredTests;

  function GetNumSkipped;

public

  constructor Create; virtual;

  destructor Destroy; override;

  procedure ClearErrorLists;

  procedure StartTest();

  procedure AddFailure();

  procedure AddError();

  procedure EndTest();

  procedure AddListener();

  procedure RemoveListener();

  procedure Run();

  procedure RunProtected();

  function WasSuccessful;

  function SkipTest();

  procedure AddToSkipList();

  procedure RemoveFromSkipList();

  procedure StartTestSuite();

  procedure EndTestSuite();

published

  property Listeners: TFPList; [r]

  property Failures: TFPList; [r]

  property IgnoredTests: TFPList; [r]

  property Errors: TFPList; [r]

  property RunTests: Integer; [r]

  property NumberOfErrors: Integer; [r]

  property NumberOfFailures: Integer; [r]

  property NumberOfIgnoredTests: Integer; [r]

  property NumberOfSkippedTests: Integer; [r]

  property StartingTime: TDateTime; [r]

end;

TTestResult

TObject