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

codetools: tests: parse delphi specialized interface ancestor

Browse Source 
git-svn-id: trunk@56476 -
This commit is contained in:
mattias 2017-11-23 23:53:03 +00:00
parent 99b950057f
commit c9a3a1cfe0
1 changed files with 25 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -91,9 +91,10 @@ type
procedure TestFindDeclaration_TypeHelper; procedure TestFindDeclaration_TypeHelper;
procedure TestFindDeclaration_ObjCClass; procedure TestFindDeclaration_ObjCClass;
procedure TestFindDeclaration_ObjCCategory; procedure TestFindDeclaration_ObjCCategory;
procedure TestFindDeclaration_Generics;
procedure TestFindDeclaration_GenericFunction; procedure TestFindDeclaration_GenericFunction;
procedure TestFindDeclaration_Generics_Enumerator; procedure TestFindDeclaration_Generics_Enumerator;
procedure TestFindDeclaration_Generics;
procedure TestFindDeclaration_GenericsDelphi_InterfaceAncestor;
procedure TestFindDeclaration_ForIn; procedure TestFindDeclaration_ForIn;
procedure TestFindDeclaration_FileAtCursor; procedure TestFindDeclaration_FileAtCursor;
procedure TestFindDeclaration_CBlocks; procedure TestFindDeclaration_CBlocks;
@ -577,11 +578,6 @@ begin
{$ENDIF} {$ENDIF}
end; end;
procedure TTestFindDeclaration.TestFindDeclaration_Generics;
begin
FindDeclarations('moduletests/fdt_generics.pas');
end;
procedure TTestFindDeclaration.TestFindDeclaration_GenericFunction; procedure TTestFindDeclaration.TestFindDeclaration_GenericFunction;
begin begin
StartProgram; StartProgram;
@ -595,7 +591,7 @@ begin
' i:=RandomFrom<longint>([1,2,3]);', ' i:=RandomFrom<longint>([1,2,3]);',
'end.', 'end.',
'']); '']);
ParseModule; FindDeclarations(Code);
end; end;
procedure TTestFindDeclaration.TestFindDeclaration_Generics_Enumerator; procedure TTestFindDeclaration.TestFindDeclaration_Generics_Enumerator;
@ -626,6 +622,28 @@ begin
FindDeclarations(Code); FindDeclarations(Code);
end; end;
procedure TTestFindDeclaration.TestFindDeclaration_Generics;
begin
FindDeclarations('moduletests/fdt_generics.pas');
end;
procedure TTestFindDeclaration.TestFindDeclaration_GenericsDelphi_InterfaceAncestor;
begin
StartProgram;
Add([
'{$mode delphi}',
'type',
' IParameters = interface',
' end;',
' IItem = class',
' end;',
' IBirdy = interface (IParameters<IItem>)',
' [''guid'']',
' end;',
'end.']);
FindDeclarations(Code);
end;
procedure TTestFindDeclaration.TestFindDeclaration_ForIn; procedure TTestFindDeclaration.TestFindDeclaration_ForIn;
begin begin
FindDeclarations('moduletests/fdt_for_in.pas'); FindDeclarations('moduletests/fdt_for_in.pas');