TTestRunner

type TTestRunner = class(TCustomApplication)

protected

  class function StrToFormat();

  function DefaultsFileName;

  procedure RunSuite; virtual;

  procedure ShowTestList; virtual;

  procedure ReadDefaults; virtual;

  procedure Usage; virtual;

  property FileName: string; [rw]

  property LongOpts: TStrings; [rw]

  property ShowProgress: Boolean; [rw]

  property StyleSheet: string; [rw]

  property FormatParam: TFormat; [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