paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 05:09:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: test parse delphi generic inside generic

Browse Source 
git-svn-id: trunk@56509 -
This commit is contained in:
mattias 2017-11-27 16:15:44 +00:00
parent c6cafa62ff
commit c1d0ee32a3
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -337,13 +337,25 @@ end;
procedure TTestPascalParser.TestParseGenericsDelphi;
begin
StartProgram;
Code.Source:='';
Add([
'program test1;',
'{$mode delphi}',
'type',
' TRec = record',
' procedure Proc<T>;', // generic proc inside normal record
' end;',
'procedure TRec.Proc<T>;',
' TBird<B> = class(TAnimal<B>)',
' procedure DoIt;', // normal proc inside generic class
' procedure DoSome<T>;', // generic proc inside generic class
' end;',
'procedure TRec.Proc<T>;', // generic proc inside normal record
'begin',
'end;',
'procedure TBird<B>.DoIt;', // normal proc inside generic class
'begin',
'end;',
'procedure TBird<B>.DoSome<T>;', // generic proc inside generic class
'begin',
'end;',
'begin']);