* Test for cascaded types

git-svn-id: trunk@47502 -

packages/fcl-passrc/tests/tcgenerics.pp

@@ -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);