Skip to content

Commit 1edf467

Browse files
committed
Testcase of package renamings.
1 parent dbe0f90 commit 1edf467

File tree

4 files changed

+36
-0
lines changed

4 files changed

+36
-0
lines changed

testsuite/als_helper/locations.json

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -145,6 +145,13 @@
145145
// {"file": "packages_package.adb", "line": 8, "column": 7},
146146
// // reference of the package in code
147147

148+
{"file": "packages_renaming.ads", "line": 7, "column": 9},
149+
// specification of the package renaming
150+
{"file": "packages_package.adb", "line": 2, "column": 6},
151+
// reference of the package renaming from `with` clause
152+
{"file": "packages_package.adb", "line": 2, "column": 6},
153+
// reference of the package renaming from code
154+
148155
{"file": "synthetics.adb", "line": 11, "column": 15},
149156
// reference of synthetic `"="` subprogram of `Implicit_Record`
150157
{"file": "synthetics.adb", "line": 15, "column": 15},

testsuite/als_helper/packages_package.adb

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -6,6 +6,7 @@ package body Packages_Package is
66
procedure Dummy is
77
begin
88
Packages.Dummy;
9+
Packages_Renaming.Dummy;
910
end Dummy;
1011

1112
end Packages_Package;
Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,7 @@
1+
-- Copyright header
2+
3+
-- Description of the package renaming
4+
5+
with Packages;
6+
7+
package Packages_Renaming renames Packages;

testsuite/als_helper/test.out

Lines changed: 21 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -643,6 +643,27 @@ Test_Exception : exception;
643643
----- DOCUMENTATION -----
644644
Description of the exception
645645
----- DONE -----
646+
Defining name: <DefiningName "Packages_Renaming" packages_renaming.ads:7:9-7:26>
647+
Origin: <Id "Packages_Renaming" packages_renaming.ads:7:9-7:26>
648+
----- CODE SNIPPET -----
649+
package Packages_Renaming renames Packages;
650+
----- DOCUMENTATION -----
651+
Description of the package renaming
652+
----- DONE -----
653+
Defining name: <DefiningName "Packages_Renaming" packages_renaming.ads:7:9-7:26>
654+
Origin: <Id "Packages_Renaming" packages_package.adb:2:6-2:23>
655+
----- CODE SNIPPET -----
656+
package Packages_Renaming renames Packages;
657+
----- DOCUMENTATION -----
658+
Description of the package renaming
659+
----- DONE -----
660+
Defining name: <DefiningName "Packages_Renaming" packages_renaming.ads:7:9-7:26>
661+
Origin: <Id "Packages_Renaming" packages_package.adb:2:6-2:23>
662+
----- CODE SNIPPET -----
663+
package Packages_Renaming renames Packages;
664+
----- DOCUMENTATION -----
665+
Description of the package renaming
666+
----- DONE -----
646667
Defining name: None
647668
Origin: <OpEq "=" synthetics.adb:11:15-11:16>
648669
>>>>> LAL: name resolve failure <<<<<

0 commit comments

Comments
 (0)