TTestRunner

type TTestRunner = class(TCustomApplication)

protected

const

  CDefaultsFileNameConst = 'testdefaults.ini'

  CDefaultsFileNameEnvVar = 'FPCUNITCONFIG'

  CDefaultsFileIniSection = 'defaults'

protected

  function DefaultsFileName; virtual;

  procedure ReadCustomDefaults(); virtual;

  procedure ReadDefaults; virtual;

  class function StrToFormat();

  procedure RunSuite; virtual;

  procedure ShowTestList; virtual;

  procedure Usage; virtual;

  property FileName: string; [rw]

  property LongOpts: TStrings; [rw]

  property ShowProgress: Boolean; [rw]

  property StyleSheet: string; [rw]

  property FormatParam: TFormat; [rw]

  property NoExitCodeOnError: Boolean; [rw]

  procedure DoRun; override;

  procedure DoTestRun(); virtual;

  function GetShortOpts; virtual;

  procedure AppendLongOpts; virtual;

  procedure WriteCustomHelp; virtual;

  function ParseOptions; virtual;

  procedure ExtendXmlDocument(); virtual;

  function GetResultsWriter; virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

end;

TTestRunner

TObject