* Test for cascaded types

git-svn-id: trunk@47502 -
(cherry picked from commit ce40a219ba0bc17167459e4d6b490a5c07981128)

packages/fcl-passrc/tests/tcgenerics.pas

@@ -110,6 +110,8 @@ begin
   Source.Add('    b : T;');
   Source.Add('    b2 : T2;');
   Source.Add('    FItems: ^TArray<T>;');
+  Source.Add('  type');
+  Source.Add('    TDictionaryEnumerator = TDictionary<T, TEmptyRecord>.TKeyEnumerator;');
   Source.Add('  end;');
   ParseDeclarations;
   AssertNotNull('have generic definition',Declarations.Classes);