Merge branch 'topic/eng/ide/ada_language_server#1473' into 'master'

Change priorities for sources/mains commands

See merge request eng/ide/ada_language_server!1754

Author: AnthonyLeonardoGracio

source/ada/lsp-ada_handlers-mains_commands.ads

@@ -41,7 +41,7 @@ private
 
    overriding function Priority (Self : Command)
      return LSP.Server_Jobs.Job_Priority
-       is (LSP.Server_Jobs.Low);
+       is (LSP.Server_Jobs.Immediate);
 
    for Command'External_Tag use "als-mains";
 

source/ada/lsp-ada_handlers-source_dirs_commands.ads

@@ -42,7 +42,7 @@ private
 
    overriding function Priority (Self : Command)
      return LSP.Server_Jobs.Job_Priority
-       is (LSP.Server_Jobs.Low);
+       is (LSP.Server_Jobs.Immediate);
 
    for Command'External_Tag use "als-source-dirs";
 

testsuite/ada_lsp/README.md

@@ -164,9 +164,11 @@ JSON file preprocessing
 -----------------------
 
 Before execution Tester does some text substitution in each string literal.
- * Each substring `${NAME}` is replaced by an environment variable with
+* Each substring `${NAME}` is replaced by an environment variable with
 given NAME. The `DIR` environment variable points to test's directory.
 
- * Each substring `$URI{x}` is replaced by corresponding URI `file:///test_dir/x`.
-where `x` should be path relative to the directory where `.json` file is located.
+* Each substring `$URI{x}` is replaced by corresponding URI `file:///test_dir/x`.
+where `x` should be a path relative to the directory where the `.json` file is located.
 
+* Each substring `$FILE{x}` is replaced by corresponding file path `/test_dir/x`.
+where `x` should be a path relative to the directory where the `.json` file is located.

testsuite/ada_lsp/commands.mains/default.gpr

@@ -0,0 +1,3 @@
+project Default is
+   for Main use ("main_1.adb", "main_2.adb");
+end Default;

testsuite/ada_lsp/commands.mains/main_1.adb

@@ -0,0 +1,4 @@
+procedure Main_1 is
+begin
+   null;
+end Main_1;

testsuite/ada_lsp/commands.mains/main_2.adb

@@ -0,0 +1,4 @@
+procedure Main_2 is
+begin
+   null;
+end Main_2;

testsuite/ada_lsp/commands.mains/test.json

@@ -0,0 +1,103 @@
+[
+   {
+      "comment": "Check als-mains command"
+   },
+   {
+      "start": {
+         "cmd": ["${ALS}"]
+      }
+   },
+   {
+      "send": {
+         "request": {
+            "jsonrpc": "2.0",
+            "id": 0,
+            "method": "initialize",
+            "params": {
+               "processId": 1,
+               "rootUri": "$URI{.}",
+               "capabilities": {}
+            }
+         },
+         "wait": [
+            {
+               "id": 0,
+               "result": {
+                  "capabilities": {
+                     "textDocumentSync": 2,
+                     "executeCommandProvider": {
+                        "commands": ["<HAS>", "als-mains"]
+                     }
+                  }
+               }
+            }
+         ]
+      }
+   },
+   {
+      "send": {
+         "request": {
+            "jsonrpc": "2.0",
+            "method": "workspace/didChangeConfiguration",
+            "params": {
+               "settings": {
+                  "ada": {
+                     "projectFile": "$URI{default.gpr}"
+                  }
+               }
+            }
+         },
+         "wait": [
+            {
+               "jsonrpc": "2.0",
+               "id": 1,
+               "method": "window/workDoneProgress/create",
+               "params": {
+                  "token": "<ANY>"
+               }
+            }
+         ]
+      }
+   },
+   {
+      "send": {
+         "request": {
+            "jsonrpc": "2.0",
+            "id": "sw1",
+            "method": "workspace/executeCommand",
+            "params": {
+               "command": "als-mains"
+            }
+         },
+         "wait": [
+            {
+               "jsonrpc": "2.0",
+               "id": "sw1",
+               "result": ["$FILE{main_1.adb}", "$FILE{main_2.adb}"]
+            }
+         ]
+      }
+   },
+   {
+      "send": {
+         "request": {
+            "jsonrpc": "2.0",
+            "id": "shutdown",
+            "method": "shutdown",
+            "params": null
+         },
+         "wait": [{ "id": "shutdown", "result": null }]
+      }
+   },
+   {
+      "send": {
+         "request": { "jsonrpc": "2.0", "method": "exit" },
+         "wait": []
+      }
+   },
+   {
+      "stop": {
+         "exit_code": 0
+      }
+   }
+]

testsuite/ada_lsp/commands.mains/test.yaml

@@ -0,0 +1 @@
+title: 'commands.mains'