TJUnitResultsWriter

type TJUnitResultsWriter = class(TCustomResultsWriter)

protected

  function GetSingleSuiteElement;

  function GetMultipleSuitesElement;

  function GetCurrentElement;

  procedure WriteTestHeader(); override;

  procedure WriteTestFooter(); override;

  procedure WriteSuiteHeader(); override;

  procedure WriteSuiteFooter(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure WriteHeader; override;

  procedure AddFailure(); override;

  procedure AddError(); override;

  procedure WriteResult(); override;

  property Document: TXMLDocument; [r]

end;

TJUnitResultsWriter

TCustomResultsWriter

TObject,ITestListener