Merge branch 'mr/1462' into 'master'

Add a test driver allowing to write tests in python

See merge request eng/ide/ada_language_server!1730

Author: setton

testsuite/ada_lsp/called_by/test.json

@@ -0,0 +1,52 @@
+from drivers.lsp_python_driver import LSP, complex_test
+from drivers.lsp_ada_requests import (
+    didOpen_from_disk,
+    prepareCallHierarchy,
+    incomingCalls,
+    initialize,
+    initialized,
+    didChangeConfiguration,
+)
+import os
+
+
+# Use a complex_test rather than a simple_test
+# so we can inspect the results of initialize()
+@complex_test
+def test_called_by(wd) -> list[str] | None:
+    program = os.environ.get("ALS", "ada_language_server")
+    lsp = LSP(program, wd)
+    # Send the initialize request
+    response = lsp.send(initialize())
+    # Verify that the right capability is advertised
+    response.assertField("capabilities.callHierarchyProvider", True)
+
+    # Send the initialized notification and the didChangeConfiguration notification
+    lsp.send(initialized())
+    lsp.send(didChangeConfiguration())
+    # Send a didOpen for main.adb
+    main_adb = os.path.join(wd, "main.adb")
+    p_adb = os.path.join(wd, "p.adb")
+
+    lsp.send(didOpen_from_disk(main_adb))
+
+    # Send a textDocument/prepareCallHierarchy request
+    response = lsp.send(prepareCallHierarchy(main_adb, 3, 44))
+    response.assertLocationsList([("p.adb", 2)])
+
+    # Now send the callHierarchy/incomingCalls request
+    response = lsp.send(incomingCalls(p_adb, 2, 14))
+
+    # Expect these locations
+    response.assertLocationsList(
+        [
+            ("main.adb", 10),
+            ("main.adb", 14),
+            ("p.adb", 2),
+            ("main.adb", 2),
+            ("p.ads", 1),
+            ("p.adb", 8),
+        ]
+    )
+    lsp.shutdown()
+    return []

testsuite/ada_lsp/called_by/test.py

@@ -1 +1,2 @@
 title: 'called_by'
+driver: python

testsuite/ada_lsp/called_by/test.yaml

@@ -0,0 +1,28 @@
+"""test that callHierarchy/incomingCalls works for dispatching calls"""
+
+from drivers.lsp_python_driver import simple_test
+from drivers.lsp_ada_requests import didOpen_from_disk, prepareCallHierarchy, incomingCalls
+from drivers.lsp_types import LSPMessage, URI
+import os
+
+
+@simple_test
+def test_called_by(lsp, wd):
+    # Send a didOpen for main.adb
+    main_adb = os.path.join(wd, "main.adb")
+    root_ads = os.path.join(wd, "root.ads")
+    p_adb = os.path.join(wd, "p.adb")
+
+    lsp.send(didOpen_from_disk(main_adb))
+
+    # Send a textDocument/prepareCallHierarchy request
+    response = lsp.send(prepareCallHierarchy(main_adb, 7, 4))
+
+    # Expect these locations
+    response.assertLocationsList([("root.ads",5)])
+
+    # Now send the callHierarchy/incomingCalls request
+    response = lsp.send(incomingCalls(root_ads, 5, 14))
+
+    # Expect these locations
+    response.assertLocationsList([("main.adb", 3)])

testsuite/ada_lsp/called_by_dispatching/test.json

@@ -1 +1,2 @@
 title: 'called_by_dispatching'
+driver: python