paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 19:19:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: test find declaration in initialization

Browse Source 
git-svn-id: trunk@56471 -
This commit is contained in:
mattias 2017-11-23 12:05:26 +00:00
parent c55c710790
commit a816c9155d
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/tests/moduletests/fdt_basic.pas
View File

@ -28,6 +28,9 @@ type
procedure DefaultHandler(var message); override;
end;
var
InstanceA: TMyClass2{declaration:fdt_basic.TMyClass2};
implementation
{ TMyClass1 }
@ -57,5 +60,8 @@ begin
inherited DefaultHandler{declaration:fdt_basic.TMyClass1.DefaultHandler}(message);
end;
initialization
InstanceA{declaration:fdt_basic.InstanceA}:=TMyClass2{declaration:fdt_basic.TMyClass2}.Create{declaration:fdt_basic.TMyClass1.Create};
end.

2
components/codetools/tests/testmethodjumptool.pas
View File

@ -90,7 +90,6 @@ var
IncCode: TCodeBuffer;
begin
UnitCode:=CodeToolBoss.CreateFile('TestMethodJumpTool1.pas');
IncCode:=CodeToolBoss.CreateFile('TestMethodJumpTool2.inc');
UnitCode.Source:=''
+'unit TestMethodJumpTool1;'+LineEnding
+'interface'+LineEnding
@ -101,6 +100,7 @@ begin
+'{$DEFINE UseImplementation}'
+'{$I TestMethodJumpTool2.inc}'+LineEnding
+'end.'+LineEnding;
IncCode:=CodeToolBoss.CreateFile('TestMethodJumpTool2.inc');
IncCode.Source:=''
+'{%MainUnit TestMethodJumpTool1.pas}'+LineEnding
+'{$IFDEF UseInterface}'+LineEnding