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

codetools: test anonym procs args and find declaration

Browse Source 
git-svn-id: trunk@59798 -
This commit is contained in:
mattias 2018-12-12 09:47:47 +00:00
parent 36e39cc57f
commit 3cd01247f7
2 changed files with 37 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -101,6 +101,7 @@ type
procedure TestFindDeclaration_GuessType;
procedure TestFindDeclaration_Attributes;
procedure TestFindDeclaration_BracketOpen;
procedure TestFindDeclaration_AnonymProc_Assign;
// test all files in directories:
procedure TestFindDeclaration_FPCTests;
procedure TestFindDeclaration_LazTests;
@ -177,6 +178,8 @@ procedure TCustomTestFindDeclaration.FindDeclarations(aCode: TCodeBuffer);
end;
function NodeAsPath(Tool: TFindDeclarationTool; Node: TCodeTreeNode): string;
var
aName: String;
begin
Result:='';
while Node<>nil do begin
@ -188,7 +191,12 @@ procedure TCustomTestFindDeclaration.FindDeclarations(aCode: TCodeBuffer);
ctnInterface,ctnUnit:
PrependPath(Tool.GetSourceName(false),Result);
ctnProcedure:
PrependPath(Tool.ExtractProcName(Node,[]),Result);
begin
aName:=Tool.ExtractProcName(Node,[]);
if aName='' then
aName:='$ano';
PrependPath(aName,Result);
end;
ctnProperty:
PrependPath(Tool.ExtractPropName(Node,false),Result);
ctnUseUnit:
@ -925,6 +933,32 @@ begin
FindDeclarations(Code);
end;
procedure TTestFindDeclaration.TestFindDeclaration_AnonymProc_Assign;
begin
StartProgram;
Add([
'{$mode objfpc}{$modeswitch closures}',
'type',
' int = word;',
' TFunc = function(i: int): int;',
'var f: TFunc;',
'procedure DoIt(a: int);',
' procedure Sub(b: int);',
' begin',
' f:=function(c: int): int',
' begin',
' f{declaration:f}:=nil;',
' a{declaration:doit.a}:=b{declaration:doit.sub.b}+c{declaration:doit.sub.$ano.c};',
' end;',
' end;',
'begin',
'end;',
'begin',
'end.',
'']);
FindDeclarations(Code);
end;
procedure TTestFindDeclaration.TestFindDeclaration_FPCTests;
begin
TestFiles('fpctests');

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

@ -51,7 +51,7 @@ type
procedure TestParseExternalConst;
procedure TestParseModeTP;
procedure TestParseProcAnoAssign;
procedure TestParseProcAnoArg; // ToDo
procedure TestParseProcAnoArg;
end;
implementation
@ -502,9 +502,9 @@ end;
procedure TTestPascalParser.TestParseProcAnoArg;
begin
exit;
Add([
'program test1;',
'{$mode objfpc}',
'{$modeswitch closures}',
'procedure DoIt;',
'begin',