Testcase of generic packages.

Author: godunko

testsuite/als_helper/generic_package.adb

@@ -0,0 +1,13 @@
+
+--  Copyright header
+
+--  Description of the generic package body
+
+package body Generic_Package is
+
+   procedure Dummy is
+   begin
+      null;
+   end Dummy;
+
+end Generic_Package;

testsuite/als_helper/generic_package.ads

@@ -0,0 +1,10 @@
+--  Copyright header
+
+--  Description of the generic package specification
+
+generic
+package Generic_Package is
+
+   procedure Dummy;
+
+end Generic_Package;

testsuite/als_helper/generic_package_instantiation.ads

@@ -0,0 +1,7 @@
+--  Copyright header
+
+--  Description of the generic package instantiation
+
+with Generic_Package;
+
+package Generic_Package_Instantiation is new Generic_Package;

testsuite/als_helper/generics_package.adb

@@ -0,0 +1,14 @@
+--  Copyright header
+
+--  Description of the package specification
+
+with Generic_Package_Instantiation;
+
+package body Generics_Package is
+
+   procedure Dummy is
+   begin
+      Generic_Package_Instantiation.Dummy;
+   end Dummy;
+
+end Generics_Package;

testsuite/als_helper/generics_package.ads

@@ -0,0 +1,11 @@
+--  Copyright header
+
+--  Description of the package specification
+
+package Generics_Package is
+
+private
+
+   procedure Dummy;
+
+end Generics_Package;

testsuite/als_helper/locations.json

@@ -111,6 +111,27 @@
     {"file": "exceptions_package.adb", "line": 20, "column": 36},
     //  reference of the renamed exception
 
+    //  Generics
+
+    {"file": "generic_package.ads", "line": 6, "column": 9},
+    //  declaration: `Generic_Package`
+    {"file": "generic_package.ads", "line": 10, "column": 5},
+    //  reference: `Generic_Package`
+    //  LAL 20251007: `Most_Visible_Part` returns spec always
+    // {"file": "generic_package.adb", "line": 6, "column": 14},
+    // //  body: `Generic_Package`
+    // {"file": "generic_package.adb", "line": 13, "column": 5},
+    // //  reference: `Generic_Package`
+    {"file": "generic_package_instantiation.ads", "line": 5, "column": 6},
+    //  reference: `Generic_Package` (context clause)
+    {"file": "generic_package_instantiation.ads", "line": 7, "column": 46},
+    //  reference: `Generic_Package`
+
+    {"file": "generic_package_instantiation.ads", "line": 7, "column": 9},
+    //  reference: `Generic_Package_Instantiation` (context clause)
+    {"file": "generics_package.adb", "line": 11, "column": 7},
+    //  reference: `Generic_Package_Instantiation`
+
     //  Objects
 
     {"file": "objects.ads", "line": 4, "column": 4},

testsuite/als_helper/test.out

@@ -572,6 +572,52 @@ Renamed_Test_Exception : exception;
 ----- DOCUMENTATION -----
 Description of the renamed exception
 ----- DONE -----
+Defining name: <DefiningName "Generic_Package" generic_package.ads:6:9-6:24>
+Origin: <Id "Generic_Package" generic_package.ads:6:9-6:24>
+----- CODE SNIPPET -----
+generic
+package Generic_Package
+----- DOCUMENTATION -----
+Description of the generic package specification
+----- DONE -----
+Defining name: <DefiningName "Generic_Package" generic_package.ads:6:9-6:24>
+Origin: <Id "Generic_Package" generic_package.ads:10:5-10:20>
+----- CODE SNIPPET -----
+generic
+package Generic_Package
+----- DOCUMENTATION -----
+Description of the generic package specification
+----- DONE -----
+Defining name: <DefiningName "Generic_Package" generic_package.ads:6:9-6:24>
+Origin: <Id "Generic_Package" generic_package_instantiation.ads:5:6-5:21>
+----- CODE SNIPPET -----
+generic
+package Generic_Package
+----- DOCUMENTATION -----
+Description of the generic package specification
+----- DONE -----
+Defining name: <DefiningName "Generic_Package" generic_package.ads:6:9-6:24>
+Origin: <Id "Generic_Package" generic_package_instantiation.ads:7:46-7:61>
+----- CODE SNIPPET -----
+generic
+package Generic_Package
+----- DOCUMENTATION -----
+Description of the generic package specification
+----- DONE -----
+Defining name: <DefiningName "Generic_Package_Instantiation" generic_package_instantiation.ads:7:9-7:38>
+Origin: <Id "Generic_Package_Instantiation" generic_package_instantiation.ads:7:9-7:38>
+----- CODE SNIPPET -----
+package Generic_Package_Instantiation is new Generic_Package;
+----- DOCUMENTATION -----
+Description of the generic package instantiation
+----- DONE -----
+Defining name: <DefiningName "Generic_Package_Instantiation" generic_package_instantiation.ads:7:9-7:38>
+Origin: <Id "Generic_Package_Instantiation" generics_package.adb:11:7-11:36>
+----- CODE SNIPPET -----
+package Generic_Package_Instantiation is new Generic_Package;
+----- DOCUMENTATION -----
+Description of the generic package instantiation
+----- DONE -----
 Defining name: <DefiningName "Named_Number" objects.ads:4:4-4:16>
 Origin: <Id "Named_Number" objects.ads:4:4-4:16>
 ----- CODE SNIPPET -----