Merge branch 'topic/als#1637' into 'master'

Test tasks generation for aggregate projects

See merge request eng/ide/ada_language_server!2033

Author: AnthonyLeonardoGracio

integration/vscode/ada/.vscode-test.mjs

@@ -39,7 +39,13 @@ if (process.env['MOCHA_GREP']) {
     baseMochaOptions.grep = process.env['MOCHA_GREP'];
 }
 
-const testsuites = ['general', 'workspace_missing_dirs', 'dot-als-json', 'status_bar'];
+const testsuites = [
+    'general',
+    'workspace_missing_dirs',
+    'dot-als-json',
+    'status_bar',
+    'aggregate_projects',
+];
 
 export default defineConfig(
     testsuites.map((suiteName) => {

integration/vscode/ada/test/aggregate_projects/aggregate_projects.test.ts

@@ -0,0 +1,46 @@
+/* eslint-disable max-len */
+import assert from 'assert';
+import path from 'path';
+import { exe, getProjectFile } from '../../src/helpers';
+import { createAdaTaskProvider } from '../../src/taskProviders';
+import { activate, getCommandLines, isCoreTask } from '../utils';
+
+suite('Aggregate Projects Support', function () {
+    // Set timeout to 15 seconds unless already configured to more
+    this.timeout(Math.max(this.timeout(), 15000));
+
+    let projectPath: string;
+
+    this.beforeAll(async () => {
+        await activate();
+        projectPath = await getProjectFile();
+    });
+
+    /**
+     * Check that the list of offered Ada tasks is expected for
+     * aggregate projects, in particular we should offer tasks to
+     * build and run the mains of all aggregated projects.
+     */
+    test('Ada tasks for aggregate projects', async () => {
+        const expectedCmdLines = `
+ada: Clean current project - gprclean -P ${projectPath}
+ada: Build current project - gprbuild -P ${projectPath} '-cargs:ada' -gnatef
+ada: Check current file - gprbuild -q -f -c -u -gnatc -P ${projectPath} \${fileBasename} '-cargs:ada' -gnatef
+ada: Compile current file - gprbuild -q -f -c -u -P ${projectPath} \${fileBasename} '-cargs:ada' -gnatef
+ada: Generate documentation from the project - gnatdoc -P ${projectPath}
+ada: Build main - src/main_1.adb - gprbuild -P ${projectPath} src/main_1.adb '-cargs:ada' -gnatef
+ada: Run main - src/main_1.adb - .${path.sep}main1exec${exe}
+ada: Build main - src/main_2.adb - gprbuild -P ${projectPath} src/main_2.adb '-cargs:ada' -gnatef
+ada: Run main - src/main_2.adb - .${path.sep}main2exec${exe}
+ada: Build main - src/main_3.adb - gprbuild -P ${projectPath} src/main_3.adb '-cargs:ada' -gnatef
+ada: Run main - src/main_3.adb - .${path.sep}main3exec${exe}
+`.trim();
+
+        const prov = createAdaTaskProvider();
+        /**
+         * Exclude GNAT SAS tasks because they are tested in integration-testsuite.
+         */
+        const actualCommandLines = await getCommandLines(prov, isCoreTask);
+        assert.equal(actualCommandLines, expectedCmdLines);
+    });
+});

integration/vscode/ada/test/aggregate_projects/ws/.als.json

@@ -0,0 +1,3 @@
+{
+    "projectFile": "aggr.gpr"
+}

integration/vscode/ada/test/aggregate_projects/ws/aggr.gpr

@@ -0,0 +1,3 @@
+aggregate project Aggr is
+   for Project_Files use ("project_1.gpr", "project_2.gpr");
+end Aggr;

integration/vscode/ada/test/aggregate_projects/ws/project_1.gpr

@@ -0,0 +1,9 @@
+project Project_1 is
+   for Source_Dirs use ("src");
+   for Main use ("main_1.adb", "main_2.adb");
+
+   package Builder is
+      for Executable ("main_1.adb") use "main1exec";
+      for Executable ("main_2.adb") use "main2exec";
+   end Builder;
+end Project_1;

integration/vscode/ada/test/aggregate_projects/ws/project_2.gpr

@@ -0,0 +1,7 @@
+project Project_2 is
+   for Source_Dirs use ("src");
+   for Main use ("main_3.adb");
+   package Builder is
+      for Executable ("main_3.adb") use "main3exec";
+   end Builder;
+end Project_2;

integration/vscode/ada/test/aggregate_projects/ws/src/main_1.adb

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

integration/vscode/ada/test/aggregate_projects/ws/src/main_2.adb

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

integration/vscode/ada/test/aggregate_projects/ws/src/main_3.adb

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

integration/vscode/ada/test/runTest.ts

@@ -10,7 +10,13 @@ async function main() {
     // Passed to `--extensionDevelopmentPath`
     const extensionDevelopmentPath = path.resolve(__dirname, '../../');
 
-    const testsuites = ['general', 'gnattest', 'workspace_missing_dirs', 'status_bar'];
+    const testsuites = [
+        'general',
+        'gnattest',
+        'workspace_missing_dirs',
+        'status_bar',
+        'aggregate_projects',
+    ];
 
     let someTestsuiteFailed = false;