Merge branch 'als_1717' into 'master'

Replace completion_auto_qualifier test with python test

See merge request eng/ide/ada_language_server!2129

Author: ogorodnik

testsuite/ada_lsp/completion.auto_qualifier/test.json

@@ -0,0 +1,78 @@
+"""
+Tests that we insert auto-import in the right place,
+before the node.
+For example:
+Ada.Text_IO.Put (LFtip);
+                     ^ cursor here
+
+Ada.Text_IO.Put (LFtip);
+                 ^ "A." should be inserted here
+"""
+
+from typing import List
+from drivers import pylsp
+from lsprotocol.types import (
+    Command,
+    CompletionContext,
+    CompletionItem,
+    CompletionList,
+    CompletionParams,
+    CompletionTriggerKind,
+    TextDocumentIdentifier,
+)
+
+
+@pylsp.test()
+async def test(lsp: pylsp.ALSLanguageClient) -> None:
+    file_uri = lsp.didOpenFile("main.adb")
+
+    await lsp.awaitIndexingEnd()
+
+    result = await lsp.text_document_completion_async(
+        CompletionParams(
+            TextDocumentIdentifier(file_uri),
+            pylsp.Pos(6, 26),
+            CompletionContext(CompletionTriggerKind.Invoked),
+        )
+    )
+    EXPECTED_LABEL = "LFtip (invisible)"
+    EXPECTED_COMMAND = Command(
+        title="",
+        command="als-auto-import",
+        arguments=[
+            {
+                "context": pylsp.URI("default.gpr"),
+                "where": {
+                    "textDocument": {"uri": file_uri},
+                    "position": {"line": 5, "character": 20},
+                },
+                "import": "A",
+                "qualifier": "A",
+            }
+        ],
+    )
+
+    def find_expected_completion_item(
+        items: List[CompletionItem],
+        expected_label,
+        expected_command,
+    ):
+        """
+        Find the expected completion item in the given completion items' list
+        """
+        expected_items = [
+            item
+            for item in items
+            if item.label == expected_label and item.command == expected_command
+        ]
+        return len(expected_items) == 1
+
+    # Verify that we are able to find the expected completion invisible item
+    # for 'LFtip'
+    assert isinstance(
+        result, CompletionList
+    ), "The returned completion list result should be of type CompletionList"
+    lsp.assertEqual(
+        find_expected_completion_item(result.items, EXPECTED_LABEL, EXPECTED_COMMAND),
+        True,
+    )

testsuite/ada_lsp/completion.auto_qualifier/a.ads renamed to testsuite/ada_lsp/completion_auto_qualifier/a.ads

@@ -1 +1,2 @@
 title: 'completion.auto_qualifier'
+driver: pylsp