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

codetools: test find ampersand identifiers

Browse Source
This commit is contained in:
mattias 2024-08-05 17:57:23 +02:00
parent 59e6e46286
commit a360ff46d2
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -149,6 +149,7 @@ type
procedure TestFindDeclaration_ArrayMultiDimDot;
procedure TestFindDeclaration_VarArgsOfType;
procedure TestFindDeclaration_ProcRef;
procedure TestFindDeclaration_Ampersand;
// unit/include search
procedure TestFindDeclaration_UnitSearch_CurrentDir;
@ -1344,6 +1345,25 @@ begin
FindDeclarations(Code);
end;
procedure TTestFindDeclaration.TestFindDeclaration_Ampersand;
begin
StartUnit;
Add([
'const',
' &true = 1;',
'type',
' TBird = record',
' &type: word;',
' end;',
'var',
' Bird: TBird;',
'implementation',
'initialization',
' Bird.&Type{declaration:test1.TBird.Type} = &True{declaration:test1.True};',
'end.']);
FindDeclarations(Code);
end;
procedure TTestFindDeclaration.TestFindDeclaration_UnitSearch_CurrentDir;
var
Unit1A, Unit1B: TCodeBuffer;