TCustomResultsWriter

type TCustomResultsWriter = class(TComponent,ITestListener)

protected

  procedure SetSkipAddressInfo(); virtual;

  procedure SetSparse(); virtual;

  procedure WriteTestHeader(); virtual;

  procedure WriteTestFooter(); virtual;

  procedure WriteSuiteHeader(); virtual;

  procedure WriteSuiteFooter(); virtual;

  procedure WriteHeader; virtual;

  procedure WriteFooter; virtual;

public

  procedure AddFailure(); virtual;

  procedure AddError(); virtual;

  procedure StartTest(); virtual;

  procedure EndTest(); virtual;

  procedure StartTestSuite(); virtual;

  procedure EndTestSuite(); virtual;

  constructor Create(); override;

  destructor Destroy; override;

  procedure AfterConstruction; override;

  procedure BeforeDestruction; override;

  procedure WriteResult(); virtual;

published

  property FileName: string; [rw]

  property OnWriteSuiteHeader: TWriteTestSuiteHeaderEvent; [rw]

  property OnWriteSuiteFooter: TWriteTestSuiteFooterEvent; [rw]

  property OnWriteTestHeader: TWriteTestHeaderEvent; [rw]

  property OnWriteTestFooter: TWriteTestFooterEvent; [rw]

  property OnAddFailure: TFailureEvent; [rw]

  property OnAddError: TFailureEvent; [rw]

  property OnStartTest: TTestEvent; [rw]

  property OnEndTest: TTestEvent; [rw]

  property OnStartTestSuite: TTestEvent; [rw]

  property OnEndTestSuite: TTestEvent; [rw]

  property SkipTiming: Boolean; [rw]

  property Sparse: Boolean; [rw]

  property SkipAddressInfo: Boolean; [rw]

end;

TCustomResultsWriter

TObject,ITestListener