TFPTestCodeCreator

type TFPTestCodeCreator = class(TComponent)

protected

  procedure ExtractClassMethod(); virtual;

  function GetTestClassName(); virtual;

  function AllowIdentifier();

  function IsStringType(); virtual;

  procedure AddTest(); virtual;

  procedure CreateImplementationCode(); virtual;

  procedure AddMethodImpl(); virtual;

  procedure EndTestClassImpl(); virtual;

  procedure CreateInterfaceCode(); virtual;

  procedure StartTestClassDecl(); virtual;

  procedure EndTestClassDecl(); virtual;

  procedure AddDefaultMethodDecl(); virtual;

  procedure CreateTestCode(); virtual;

  procedure DoCreateTests();

  function ParseSource();

  procedure CreateTests();

  property Tests: TStrings; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Execute();

published

  property LimitIdentifiers: TStrings; [rw]

  property DefaultClassTests: TStrings; [rw]

  property Visibilities: TPasMemberVisibilities; [rw]

  property MemberTypes: TTestMemberTypes; [rw]

  property PropertyOptions: TTestpropertyOptions; [rw]

  property CodeOptions: TTestCodeOptions; [rw]

  property DestUnitName: string; [rw]

  property UnitTestClassName: string; [rw]

  property TestNamePrefix: string; [rw]

  property TestClassParent: string; [rw]

  property FailMessage: string; [rw]

end;

TFPTestCodeCreator

TObject