paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 03:39:15 +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);
//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);
{$IFDEF VerboseFindDeclarationTests}
debugln(['TTestFindDeclaration.FindDeclarations searching "',Marker,'" at ',Tool.CleanPosToStr(NameStartPos-1),' ExpectedPath=',ExpectedPath]);
@ -187,7 +187,7 @@ begin
end;
// test identifier completion
if ExpectedPath<>'' then begin
if (ExpectedPath<>'') then begin
if not CodeToolBoss.GatherIdentifiers(CursorPos.Code,CursorPos.X,CursorPos.Y)
then begin
if ExpectedPath<>'' then

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

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