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

codetools: tests for dotted units

Browse Source 
git-svn-id: trunk@50122 -
This commit is contained in:
mattias 2015-10-19 13:30:14 +00:00
parent 2c99963589
commit 655cfb0abf
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/tests/fdtbase.pas
View File

@ -156,7 +156,7 @@ begin
dec(IdentifierStartPos); dec(IdentifierStartPos);
//debugln(['TTestFindDeclaration.FindDeclarations params: ',dbgstr(Tool.Src,p,CommentP-p)]); //debugln(['TTestFindDeclaration.FindDeclarations params: ',dbgstr(Tool.Src,p,CommentP-p)]);
if Marker='declaration' then begin if (Marker='declaration') then begin
ExpectedPath:=copy(Src,PathPos,CommentP-1-PathPos); ExpectedPath:=copy(Src,PathPos,CommentP-1-PathPos);
{$IFDEF VerboseFindDeclarationTests} {$IFDEF VerboseFindDeclarationTests}
debugln(['TTestFindDeclaration.FindDeclarations searching "',Marker,'" at ',Tool.CleanPosToStr(NameStartPos-1),' ExpectedPath=',ExpectedPath]); debugln(['TTestFindDeclaration.FindDeclarations searching "',Marker,'" at ',Tool.CleanPosToStr(NameStartPos-1),' ExpectedPath=',ExpectedPath]);
@ -187,7 +187,7 @@ begin
end; end;
// test identifier completion // test identifier completion
if ExpectedPath<>'' then begin if (ExpectedPath<>'') then begin
if not CodeToolBoss.GatherIdentifiers(CursorPos.Code,CursorPos.X,CursorPos.Y) if not CodeToolBoss.GatherIdentifiers(CursorPos.Code,CursorPos.X,CursorPos.Y)
then begin then begin
if ExpectedPath<>'' then if ExpectedPath<>'' then

2
components/codetools/tests/fpctests/tudots.dot.prog.pp
View File

@ -5,7 +5,7 @@ program tudots.dot.prog;
{$mode delphi} {$mode delphi}
uses uses
tudots{declaration:tudots}; tudots{ todo declaration:tudots};
begin begin
// this must fail because we have a namespace tudots.dot and it has no unit test // this must fail because we have a namespace tudots.dot and it has no unit test