Add the testcase for type hierarchy requests.

Update CHANGELOG.md
Refs #360

Author: reznikmm

CHANGELOG.md

@@ -4,6 +4,7 @@
 section below it for the last release. -->
 ## \<next>
 
+* The implementation of type hierarchy requests
 * Migrate the build infrastructure to ALIRE
 * Migrate the VSIX publication infrastructure out of GitHub Actions
 * Revamp the VS Code extension walkthrough

testsuite/ada_lsp/type_hierarchy/base_types-ext.ads

@@ -0,0 +1,12 @@
+private
+package Base_Types.Ext is
+
+   type New_Private_Type is new Private_Type with null record;
+
+   type New_Int is new Int;
+
+   type Cube is new Abstract_Shape with record
+      Side : Integer;
+   end record;
+
+end Base_Types.Ext;

testsuite/ada_lsp/type_hierarchy/base_types.ads

@@ -0,0 +1,22 @@
+package Base_Types is
+
+   type Abstract_Shape;
+
+   type Abstract_Shape is abstract tagged limited private;
+
+   type Int is range 1 .. 100;
+
+   type Private_Type is private;
+
+   type Limit is limited interface;
+
+   type Plain_1 is interface;
+   type Plain_2 is interface;
+
+private
+
+   type Abstract_Shape is abstract tagged limited null record;
+
+   type Private_Type is new Plain_1 and Plain_2 with null record;
+
+end Base_Types;

testsuite/ada_lsp/type_hierarchy/default.gpr

@@ -0,0 +1,2 @@
+project Default is
+end Default;

testsuite/ada_lsp/type_hierarchy/other.adb

@@ -0,0 +1,17 @@
+with Base_Types;
+
+package body Other is
+
+   protected body Prot is
+      procedure Set is
+      begin
+         Lock := False;
+      end Set;
+   end Prot;
+
+   task body Worker is
+   begin
+      accept Start;
+   end Worker;
+
+end Other;

testsuite/ada_lsp/type_hierarchy/other.ads

@@ -0,0 +1,25 @@
+with Base_Types;
+
+package Other is
+
+   type New_Private_Type is new Base_Types.Private_Type;
+
+   type New_Int is new Base_Types.Int;
+
+   type Circle is new Base_Types.Abstract_Shape with record
+      Radius : Integer;
+   end record;
+
+   type Prot;
+
+   protected type Prot is new Base_Types.Limit with
+      procedure Set;
+   private
+      Lock : Boolean := True;
+   end Prot;
+
+   task Worker is new Base_Types.Limit with
+      entry Start;
+   end Worker;
+
+end Other;