paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 09:40:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpcunit: clean up

Browse Source 
git-svn-id: trunk@40532 -
This commit is contained in:
mattias 2013-03-12 09:17:15 +00:00
parent 54eaceaae4
commit 8e235a5d36
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/fpcunit/ide/fpcunitlazideintf.pas
View File

@ -43,7 +43,7 @@ type
function GetLocalizedName: string; override;
function GetLocalizedDescription: string; override;
function InitProject(AProject: TLazProject): TModalResult; override;
function CreateStartFiles(AProject: TLazProject): TModalResult; override;
function CreateStartFiles({%H-}AProject: TLazProject): TModalResult; override;
end;
{ TFPCUnitConsoleApplicationDescriptor }
@ -54,7 +54,7 @@ type
function GetLocalizedName: string; override;
function GetLocalizedDescription: string; override;
function InitProject(AProject: TLazProject): TModalResult; override;
function CreateStartFiles(AProject: TLazProject): TModalResult; override;
function CreateStartFiles({%H-}AProject: TLazProject): TModalResult; override;
end;
{ TFileDescPascalUnitFPCUnitTestCase }
@ -71,10 +71,10 @@ type
function GetInterfaceUsesSection: string; override;
function GetLocalizedName: string; override;
function GetLocalizedDescription: string; override;
function GetInterfaceSource(const Filename, SourceName,
ResourceName: string): string;override;
function GetImplementationSource(const Filename, SourceName,
ResourceName: string): string; override;
function GetInterfaceSource(const {%H-}Filename, {%H-}SourceName,
{%H-}ResourceName: string): string;override;
function GetImplementationSource(const {%H-}Filename, {%H-}SourceName,
{%H-}ResourceName: string): string; override;
property TestCaseName: string read FTestCaseName write FTestCaseName;
property CreateSetup: boolean read FCreateSetup write FCreateSetup;
property CreateTeardown: boolean read FCreateTeardown write FCreateTeardown;