paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 00:39:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: test uses vs local precedence

Browse Source
This commit is contained in:
mattias 2025-01-13 19:50:54 +01:00
parent fe0820345d
commit c92a49b9f9
1 changed files with 114 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

116
components/codetools/tests/testfinddeclaration.pas
View File

@ -163,7 +163,10 @@ type
procedure TestFindDeclaration_FindFPCSrcNameSpacedUnits;
// unit namespaces
procedure TestFindDeclaration_LocalBeforeUses;
procedure TestFindDeclaration_ProgLocalVsUses;
procedure TestFindDeclaration_UnitIntfVsUses;
procedure TestFindDeclaration_UnitImplVsIntfUses;
procedure TestFindDeclaration_UnitImplVsImplUses;
// directives
procedure TestFindDeclaration_DirectiveWithIn;
@ -1727,7 +1730,7 @@ begin
Traverse(FPCSrcDir,0,-1);
end;
procedure TTestFindDeclaration.TestFindDeclaration_LocalBeforeUses;
procedure TTestFindDeclaration.TestFindDeclaration_ProgLocalVsUses;
var
DotsUnit: TCodeBuffer;
begin
@ -1736,6 +1739,7 @@ begin
DotsUnit:=CodeToolBoss.CreateFile('nsA.dots.pp');
DotsUnit.Source:='unit nsa.dots;'+LineEnding
+'interface'+LineEnding
+'type Size = word;'+LineEnding
+'implementation'+LineEnding
+'end.';
@ -1761,6 +1765,114 @@ begin
end;
end;
procedure TTestFindDeclaration.TestFindDeclaration_UnitIntfVsUses;
var
DotsUnit: TCodeBuffer;
begin
DotsUnit:=nil;
try
DotsUnit:=CodeToolBoss.CreateFile('nsA.dots.pp');
DotsUnit.Source:='unit nsa.dots;'+LineEnding
+'interface'+LineEnding
+'type Size = word;'+LineEnding
+'implementation'+LineEnding
+'end.';
StartUnit;
Add([
'uses nsA.dots;',
'type',
' TWing = record',
' Size: word;',
' end;',
' TBird = record',
' DoTs: TWing;',
' end;',
'var NSA: TBird;',
'implementation',
'begin',
' NSA.dots.Size{declaration:test1.twing.Size}:=3',
'end.',
'']);
FindDeclarations(Code);
finally
if DotsUnit<>nil then
DotsUnit.IsDeleted:=true;
end;
end;
procedure TTestFindDeclaration.TestFindDeclaration_UnitImplVsIntfUses;
var
DotsUnit: TCodeBuffer;
begin
DotsUnit:=nil;
try
DotsUnit:=CodeToolBoss.CreateFile('nsA.dots.pp');
DotsUnit.Source:='unit nsa.dots;'+LineEnding
+'interface'+LineEnding
+'type Size = word;'+LineEnding
+'implementation'+LineEnding
+'end.';
StartUnit;
Add([
'uses nsA.dots;',
'implementation',
'type',
' TWing = record',
' Size: word;',
' end;',
' TBird = record',
' DoTs: TWing;',
' end;',
'var NSA: TBird;',
'begin',
' NSA.dots.Size{declaration:twing.Size}:=3',
'end.',
'']);
FindDeclarations(Code);
finally
if DotsUnit<>nil then
DotsUnit.IsDeleted:=true;
end;
end;
procedure TTestFindDeclaration.TestFindDeclaration_UnitImplVsImplUses;
var
DotsUnit: TCodeBuffer;
begin
DotsUnit:=nil;
try
DotsUnit:=CodeToolBoss.CreateFile('nsA.dots.pp');
DotsUnit.Source:='unit nsa.dots;'+LineEnding
+'interface'+LineEnding
+'type Size = word;'+LineEnding
+'implementation'+LineEnding
+'end.';
StartUnit;
Add([
'implementation',
'uses nsA.dots;',
'type',
' TWing = record',
' Size: word;',
' end;',
' TBird = record',
' DoTs: TWing;',
' end;',
'var NSA: TBird;',
'begin',
' NSA.dots.Size{declaration:twing.Size}:=3',
'end.',
'']);
FindDeclarations(Code);
finally
if DotsUnit<>nil then
DotsUnit.IsDeleted:=true;
end;
end;
procedure TTestFindDeclaration.TestFindDeclaration_DirectiveWithIn;
begin
StartProgram;