Merge branch 'topic/als#1424' into 'edge'

Add automatic test

See merge request eng/ide/ada_language_server!1699

Author: AnthonyLeonardoGracio

testsuite/ada_lsp/als.1424.definition.multiple_defining/default.gpr

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

testsuite/ada_lsp/als.1424.definition.multiple_defining/main.adb

@@ -0,0 +1,9 @@
+procedure Main is
+   procedure Do_Something (First, Second : Integer) is
+   begin
+      Ada.Text_IO.Put_Line (First'Img);
+      Ada.Text_IO.Put_Line (Second'Img);
+   end Do_Something;
+begin
+   Do_Something (2, 3);
+end Main;

testsuite/ada_lsp/als.1424.definition.multiple_defining/test.json

@@ -0,0 +1,130 @@
+[
+   {
+      "comment": [
+         "Verify that textDocument/definition does not raise any error ",
+         "when performed on a basic decl with multiple defining names (e.g: when done on 'B'",
+         " or 'A' in the following parameters' list: '(A, B : Integer)')"
+      ]
+   },
+   {
+      "start": {
+         "cmd": ["${ALS}"]
+      }
+   },
+   {
+      "send": {
+         "request": {
+            "params": {
+               "processId": 13950,
+               "capabilities": {
+                  "workspace": {
+                     "applyEdit": false
+                  }
+               },
+               "rootUri": "$URI{.}"
+            },
+            "jsonrpc": "2.0",
+            "id": 1,
+            "method": "initialize"
+         },
+         "wait": [
+            {
+               "id": 1,
+               "result": {
+                  "capabilities": {
+                     "textDocumentSync": 2,
+                     "signatureHelpProvider": {
+                        "triggerCharacters": [",", "("],
+                        "retriggerCharacters": ["\b"]
+                     }
+                  }
+               }
+            }
+         ]
+      }
+   },
+   {
+      "send": {
+         "request": {
+            "jsonrpc": "2.0",
+            "method": "initialized"
+         },
+         "wait": []
+      }
+   },
+   {
+      "send": {
+         "request": {
+            "jsonrpc": "2.0",
+            "method": "workspace/didChangeConfiguration",
+            "params": {
+               "settings": {
+                  "ada": {
+                     "defaultCharset": "ISO-8859-1",
+                     "projectFile": "$URI{default.gpr}",
+                     "scenarioVariables": {}
+                  }
+               }
+            }
+         },
+         "wait": []
+      }
+   },
+   {
+      "send": {
+         "request": {
+            "jsonrpc": "2.0",
+            "method": "textDocument/didOpen",
+            "params": {
+               "textDocument": {
+                  "uri": "$URI{main.adb}",
+                  "languageId": "Ada",
+                  "version": 0,
+                  "text": "procedure Main is\n   procedure Do_Something (First, Second : Integer) is\n   begin\n      Ada.Text_IO.Put_Line (First'Img);\n      Ada.Text_IO.Put_Line (Second'Img);\n   end Do_Something;\nbegin\n   Do_Something (2, 3);\nend Main;\n"
+               }
+            }
+         },
+         "wait": []
+      }
+   },
+   {
+      "send": {
+         "request": {
+            "jsonrpc": "2.0",
+            "id": 5,
+            "method": "textDocument/definition",
+            "params": {
+               "textDocument": {
+                  "uri": "$URI{main.adb}"
+               },
+               "position": {
+                  "line": 1,
+                  "character": 27
+               },
+               "alsDisplayMethodAncestryOnNavigation": "Usage_And_Abstract_Only"
+            }
+         },
+         "wait": [{ "jsonrpc": "2.0", "id": 5, "result": [] }]
+      }
+   },
+   {
+      "send": {
+         "request": {
+            "jsonrpc": "2.0",
+            "id": 8,
+            "method": "shutdown"
+         },
+         "wait": [
+            {
+               "id": 8,
+               "result": null
+            }
+         ]
+      }
+   },
+   {
+      "stop": {
+         "exit_code": 0
+      }
+   }
+]

testsuite/ada_lsp/als.1424.definition.multiple_defining/test.yaml

@@ -0,0 +1 @@
+title: 'als.1424.definition.multiple_defining'