paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 16:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: test parsing nested generic inline expression, from Pascal Riekenberg

Browse Source 
git-svn-id: trunk@63149 -
This commit is contained in:
mattias 2020-05-14 08:18:22 +00:00
parent 9aa25f1ba7
commit eb33c352df
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/codetools/tests/testcodecompletion.pas
View File

@ -491,6 +491,7 @@ begin
'type', 'type',
' TBird = class', ' TBird = class',
' procedure DoIt(i: specialize TGenList<longint>);', ' procedure DoIt(i: specialize TGenList<longint>);',
' procedure DoIt2(i: specialize TGenList<specialize TGenObject<integer>>);',
' end;', ' end;',
'implementation', 'implementation',
'end.'], 'end.'],
@ -504,6 +505,7 @@ begin
'', '',
' TBird = class', ' TBird = class',
' procedure DoIt(i: specialize TGenList<longint>);', ' procedure DoIt(i: specialize TGenList<longint>);',
' procedure DoIt2(i: specialize TGenList<specialize TGenObject<integer>>);',
' end;', ' end;',
'implementation', 'implementation',
'', '',
@ -511,6 +513,10 @@ begin
'begin', 'begin',
'end;', 'end;',
'', '',
'procedure TBird.DoIt2(i: specialize TGenList<specialize TGenObject<integer>>);',
'begin',
'end;',
'',
'end.']); 'end.']);
end; end;
@ -523,6 +529,7 @@ begin
'type', 'type',
' TBird = class', ' TBird = class',
' procedure DoIt(i: TGenList<longint>);', ' procedure DoIt(i: TGenList<longint>);',
' procedure DoIt2(i: TGenList<TGenObject<longint>>);',
' end;', ' end;',
'implementation', 'implementation',
'end.'], 'end.'],
@ -536,6 +543,7 @@ begin
'', '',
' TBird = class', ' TBird = class',
' procedure DoIt(i: TGenList<longint>);', ' procedure DoIt(i: TGenList<longint>);',
' procedure DoIt2(i: TGenList<TGenObject<longint>>);',
' end;', ' end;',
'implementation', 'implementation',
'', '',
@ -543,6 +551,10 @@ begin
'begin', 'begin',
'end;', 'end;',
'', '',
'procedure TBird.DoIt2(i: TGenList<TGenObject<longint>>);',
'begin',
'end;',
'',
'end.']); 'end.']);
end; end;