Add testcase for ALS --config=file option

Refs #1108

Author: reznikmm

testsuite/ada_lsp/project_config.file/aaa.adb

@@ -0,0 +1,6 @@
+with To_Be_Called;
+procedure Aaa is
+   Text : String := "cba";
+begin
+   To_Be_Called (Text);
+end Aaa;

testsuite/ada_lsp/project_config.file/config.js

@@ -0,0 +1 @@
+{ "projectFile": "prj/right_project.gpr" }

testsuite/ada_lsp/project_config.file/prj/right_project.gpr

@@ -0,0 +1,6 @@
+project Right_Project is
+   for Source_Dirs use  ("..");
+   package Naming is
+      for Spec ("To_Be_Called") use "second.ads";
+   end Naming;
+end Right_Project;

testsuite/ada_lsp/project_config.file/project_config.json

@@ -0,0 +1,110 @@
+[
+    {
+        "comment":[
+            "This test check language server is able to find a project file",
+            "specified in configuration file and `--config=file` option.",
+            "To check it we search for a custom named subprogram."
+        ]
+    },  {
+        "start": {
+            "cmd": ["${ALS}", "--config=${DIR}/config.js"]
+        }
+    },  {
+        "send": {
+            "request": {"jsonrpc":"2.0","id":0,"method":"initialize","params":{
+                "processId":1,
+                "rootUri":"$URI{.}",
+                "capabilities":{}}
+            },
+            "wait":[{
+                "id": 0,
+                "result":{
+                    "capabilities":{
+                        "textDocumentSync": 2,
+                        "definitionProvider":true
+                    }
+                }
+            }]
+        }
+    },  {
+        "send": {
+            "request": {
+                "jsonrpc":"2.0",
+                "method":"workspace/didChangeConfiguration",
+                "params":{
+                    "settings":{
+                    }
+                }
+            },
+            "wait":[]
+        }
+    },  {
+        "send": {
+            "request": {
+                "jsonrpc":"2.0",
+                "method":"textDocument/didOpen",
+                "params":{
+                    "textDocument": {
+                        "uri": "$URI{aaa.adb}",
+                        "languageId": "ada",
+                        "version": 1,
+                        "text": "with To_Be_Called;\nprocedure Aaa is\n   Text : String := \"cba\";\nbegin\n   To_Be_Called (Text);\nend Aaa;\n"
+                    }
+                }
+            },
+            "wait":[]
+        }
+    },  {
+        "send": {
+            "request": {
+                "jsonrpc":"2.0",
+                "id":"defname-1",
+                "method":"textDocument/definition",
+                "params":{
+                    "textDocument": {
+                        "uri": "$URI{aaa.adb}"
+                    },
+                    "position": {
+                        "line": 4,
+                        "character": 11
+                    }
+                }
+            },
+            "wait":[{
+                "id": "defname-1",
+                "result":[{
+                    "uri": "$URI{second.ads}",
+                    "range": {
+                        "start": {
+                            "line": 0,
+                            "character": 10
+                        },
+                        "end": {
+                            "line": 0,
+                            "character": 22
+                        }
+                    }
+                }]
+            }]
+        }
+    },  {
+        "send": {
+            "request": {
+                "jsonrpc":"2.0",
+                "id": "shutdown",
+                "method":"shutdown",
+                "params":null
+            },
+            "wait":[{ "id": "shutdown", "result": null }]
+        }
+    },  {
+        "send": {
+            "request": {"jsonrpc":"2.0", "method":"exit", "params":{}},
+            "wait":[]
+        }
+    }, {
+        "stop": {
+            "exit_code": 0
+        }
+    }
+]

testsuite/ada_lsp/project_config.file/second.ads

@@ -0,0 +1 @@
+procedure To_Be_Called (Text : String);

testsuite/ada_lsp/project_config.file/test.yaml

@@ -0,0 +1 @@
+title: 'project_config.file'

testsuite/ada_lsp/project_config.file/third.ads

@@ -0,0 +1,4 @@
+
+
+
+procedure To_Be_Called (Text : String);

testsuite/ada_lsp/project_config.file/wrong_project.gpr

@@ -0,0 +1,5 @@
+project Wrong_Project is
+   package Naming is
+      for Spec ("To_Be_Called") use "third.ads";
+   end Naming;
+end Wrong_Project;