paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 12:00:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed two tests

Browse Source 
(cherry picked from commit 9d18e66aa8)
This commit is contained in:
mattias 2023-07-15 11:04:18 +02:00 committed by Maxim Ganetsky
parent d28c00b5e7
commit fba0c4d034
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/tests/testdesignerformtools.pas
View File

@ -305,7 +305,7 @@ begin
,' end;'
,'implementation'
,'end.'],
['Button1:Dsgn_AmbigBearBtn.TBearButton']
['Button1:Dsgn_AmbigBearBtn/TBearButton']
);
end;
@ -325,9 +325,9 @@ begin
,' end;'
,'implementation'
,'end.'],
['Button1:Dsgn_AmbigBearBtn.TBearButton',
'Button2:Dsgn_BearButtons.TBearButton',
'Label1:Dsgn_BearControls.TBearLabel']
['Button1:Dsgn_AmbigBearBtn/TBearButton',
'Button2:Dsgn_BearButtons/TBearButton',
'Label1:Dsgn_BearControls/TBearLabel']
);
end;

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

@ -317,8 +317,10 @@ begin
while (IdentifierEndPos>1) and (IsSpaceChar[Src[IdentifierEndPos-1]]) do
dec(IdentifierEndPos);
IdentifierStartPos:=IdentifierEndPos;
// allow after . (for completion)
if not ((IdentifierStartPos>1) and (Src[IdentifierStartPos-1]='.')) then begin
if (IdentifierStartPos>1) and (Src[IdentifierStartPos-1]='.') then begin
// .{...} for completion
end else begin
// check identifier in front of comment
while (IdentifierStartPos>1) and (IsIdentChar[Src[IdentifierStartPos-1]]) do
dec(IdentifierStartPos);
if IdentifierStartPos=p then begin