From eb33c352df4c62de82627753cf33e9a9a11a8c1c Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 14 May 2020 08:18:22 +0000
Subject: [PATCH] codetools: test parsing nested generic inline expression,
 from Pascal Riekenberg

git-svn-id: trunk@63149 -
---
 components/codetools/tests/testcodecompletion.pas | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/components/codetools/tests/testcodecompletion.pas b/components/codetools/tests/testcodecompletion.pas
index d1b6653993..b79046a7ea 100644
--- a/components/codetools/tests/testcodecompletion.pas
+++ b/components/codetools/tests/testcodecompletion.pas
@@ -491,6 +491,7 @@ begin
     'type',
     '  TBird = class',
     '    procedure DoIt(i: specialize TGenList<longint>);',
+    '    procedure DoIt2(i: specialize TGenList<specialize TGenObject<integer>>);',
     '  end;',
     'implementation',
     'end.'],
@@ -504,6 +505,7 @@ begin
     '',
     '  TBird = class',
     '    procedure DoIt(i: specialize TGenList<longint>);',
+    '    procedure DoIt2(i: specialize TGenList<specialize TGenObject<integer>>);',
     '  end;',
     'implementation',
     '',
@@ -511,6 +513,10 @@ begin
     'begin',
     'end;',
     '',
+    'procedure TBird.DoIt2(i: specialize TGenList<specialize TGenObject<integer>>);',
+    'begin',
+    'end;',
+    '',
     'end.']);
 end;
 
@@ -523,6 +529,7 @@ begin
     'type',
     '  TBird = class',
     '    procedure DoIt(i: TGenList<longint>);',
+    '    procedure DoIt2(i: TGenList<TGenObject<longint>>);',
     '  end;',
     'implementation',
     'end.'],
@@ -536,6 +543,7 @@ begin
     '',
     '  TBird = class',
     '    procedure DoIt(i: TGenList<longint>);',
+    '    procedure DoIt2(i: TGenList<TGenObject<longint>>);',
     '  end;',
     'implementation',
     '',
@@ -543,6 +551,10 @@ begin
     'begin',
     'end;',
     '',
+    'procedure TBird.DoIt2(i: TGenList<TGenObject<longint>>);',
+    'begin',
+    'end;',
+    '',
     'end.']);
 end;