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

codetools: added test for anonymous expr as arg and dot operator

Browse Source 
git-svn-id: trunk@59844 -
This commit is contained in:
mattias 2018-12-18 12:41:03 +00:00
parent 07d328aeaa
commit fc5c60b0fd
1 changed files with 27 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -102,6 +102,7 @@ type
procedure TestFindDeclaration_Attributes;
procedure TestFindDeclaration_BracketOpen;
procedure TestFindDeclaration_AnonymProc;
procedure TestFindDeclaration_AnonymProc_ExprDot;
// test all files in directories:
procedure TestFindDeclaration_FPCTests;
procedure TestFindDeclaration_LazTests;
@ -952,7 +953,7 @@ begin
' end;',
' DoIt(function(i: int{declaration:int}): int{declaration:int}',
' begin',
' a{declaration:doit.a}:=b{declaration:doit.sub.b}+c{declaration:doit.sub.$ano.c};',
' a{declaration:doit.a}:=b{declaration:doit.sub.b}+i{declaration:doit.sub.$ano.i};',
' end);',
' end;',
'begin',
@ -963,6 +964,31 @@ begin
FindDeclarations(Code);
end;
procedure TTestFindDeclaration.TestFindDeclaration_AnonymProc_ExprDot;
begin
StartProgram;
Add([
'{$mode objfpc}{$modeswitch closures}',
'type',
' int = word;',
' TFunc = function(i: int): int;',
'var f: TFunc;',
'function DoIt(f: TProc): TObject{declaration:system.tobject};',
'begin',
' DoIt(nil).ClassInfo{declaration:system.tobject.classinfo};',
' DoIt(function(c: int{declaration:int}): int{declaration:int}',
' begin',
' repeat until true;',
' asm end;',
' try except end;',
' end).ClassInfo{declaration:system.tobject.classinfo};',
'end;',
'begin',
'end.',
'']);
FindDeclarations(Code);
end;
procedure TTestFindDeclaration.TestFindDeclaration_FPCTests;
begin
TestFiles('fpctests');