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

codetools: fixed two tests

Browse Source
This commit is contained in:
mattias 2023-07-15 11:04:18 +02:00
parent 992a3c2ff5
commit 9d18e66aa8
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;' ,' end;'
,'implementation' ,'implementation'
,'end.'], ,'end.'],
['Button1:Dsgn_AmbigBearBtn.TBearButton'] ['Button1:Dsgn_AmbigBearBtn/TBearButton']
); );
end; end;
@ -325,9 +325,9 @@ begin
,' end;' ,' end;'
,'implementation' ,'implementation'
,'end.'], ,'end.'],
['Button1:Dsgn_AmbigBearBtn.TBearButton', ['Button1:Dsgn_AmbigBearBtn/TBearButton',
'Button2:Dsgn_BearButtons.TBearButton', 'Button2:Dsgn_BearButtons/TBearButton',
'Label1:Dsgn_BearControls.TBearLabel'] 'Label1:Dsgn_BearControls/TBearLabel']
); );
end; end;

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

@ -324,8 +324,10 @@ begin
while (IdentifierEndPos>1) and (IsSpaceChar[Src[IdentifierEndPos-1]]) do while (IdentifierEndPos>1) and (IsSpaceChar[Src[IdentifierEndPos-1]]) do
dec(IdentifierEndPos); dec(IdentifierEndPos);
IdentifierStartPos:=IdentifierEndPos; IdentifierStartPos:=IdentifierEndPos;
// allow after . (for completion) if (IdentifierStartPos>1) and (Src[IdentifierStartPos-1]='.') then begin
if not ((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 while (IdentifierStartPos>1) and (IsIdentChar[Src[IdentifierStartPos-1]]) do
dec(IdentifierStartPos); dec(IdentifierStartPos);
if IdentifierStartPos=p then begin if IdentifierStartPos=p then begin