Add call hierarchy UI test.

Author: toinehartman

rascal-vscode-extension/src/test/vscode-suite/dsl.test.ts

@@ -25,13 +25,13 @@
  * POSSIBILITY OF SUCH DAMAGE.
  */
 
-import { VSBrowser, WebDriver, Workbench } from 'vscode-extension-tester';
-import { Delays, IDEOperations, RascalREPL, TestWorkspace, ignoreFails, printRascalOutputOnFailure, sleep } from './utils';
+import { By, until, VSBrowser, WebDriver, Workbench } from 'vscode-extension-tester';
+import { Delays, IDEOperations, ignoreFails, printRascalOutputOnFailure, RascalREPL, sleep, TestWorkspace } from './utils';
 
+import { expect } from 'chai';
 import * as fs from 'fs/promises';
-import * as path from 'path';
 import { Suite } from 'mocha';
-import { expect } from 'chai';
+import * as path from 'path';
 
 function parameterizedDescribe(body: (this: Suite, errorRecovery: boolean) => void) {
     describe('DSL', function() { body.apply(this, [false]); });
@@ -258,4 +258,25 @@ parameterizedDescribe(function (errorRecovery: boolean) {
 
         await fs.rm(newDir, {recursive: true, force: true});
     });
+
+    it("call hierarchy works", async function() {
+        const editor = await ide.openModule(TestWorkspace.picoCallsFile);
+        await editor.selectText("multiply");
+        await bench.executeCommand("view.showCallHierarchy");
+        await driver.wait(until.elementLocated(By.xpath("//div[contains(@class, 'title-label')]/h2[contains(text(), 'References')]")));
+
+        await bench.executeCommand("view.showOutgoingCalls");
+        await driver.wait(until.elementLocated(By.xpath("//div[contains(@class, 'title-label')]/h2[contains(text(), 'Calls From')]")));
+        await driver.wait(async () => {
+            const hieraryItems = await bench.getSideBar().findElements(By.xpath("//div[@role='treeitem']"));
+            return hieraryItems.length === 3;
+        }, Delays.normal, "Call hierarchy should show `multiply` and its two outgoing calls.");
+
+        await bench.executeCommand("view.showIncomingCalls");
+        await driver.wait(until.elementLocated(By.xpath("//div[contains(@class, 'title-label')]/h2[contains(text(), 'Callers Of')]")));
+        await driver.wait(async () => {
+            const hieraryItems = await bench.getSideBar().findElements(By.xpath("//div[@role='treeitem']"));
+            return hieraryItems.length === 2;
+        }, Delays.normal, "Call hierarchy should show `multiply` and its recursive call.");
+    });
 });

rascal-vscode-extension/src/test/vscode-suite/utils.ts

@@ -68,6 +68,7 @@ export class TestWorkspace {
 
     public static readonly picoFile = path.join(src(this.testProject, 'pico'), 'testing.pico');
     public static readonly picoNewFile = path.join(src(this.testProject, 'pico'), 'testing.pico-new');
+    public static readonly picoCallsFile = path.join(src(this.testProject, 'pico'), 'calls.pico');
 }
 
 

rascal-vscode-extension/test-workspace/test-project/src/main/pico/calls.pico

@@ -0,0 +1,5 @@
+begin
+    declare
+      add(x: natural, y: natural): natural := x + y,
+      multiply(x: natural, y: natural): natural := add(x, multiply(x - 1, y));
+end