Merge branch 'topic/stab_test_win' into 'master'

Use 'type' command to dump compiler messages on Windows

See merge request eng/ide/ada_language_server!2068

Author: AnthonyLeonardoGracio

integration/vscode/ada/test/general/tasks.test.ts

@@ -276,11 +276,12 @@ ada: Run main - src/test.adb - .${path.sep}obj${path.sep}test${exe}
         const prov = createAdaTaskProvider();
 
         /**
-         * Build a project containing a main with style issues, warning and errors.
+         * Run a task that dumps some compiler messages contained in the 'compiler_messages.txt' file.
+         * This emulates a build with compiler messages.
          */
         const def: SimpleTaskDef = {
             type: 'ada',
-            command: 'cat',
+            command: process.platform == 'win32' ? 'type' : 'cat',
             args: ['main_with_problem' + path.sep + 'compiler_messages.txt'],
         };
         const task = new vscode.Task(
@@ -306,18 +307,16 @@ ada: Run main - src/test.adb - .${path.sep}obj${path.sep}test${exe}
             .filter((diag) => ['ada'].includes(diag.source ?? ''));
 
         assert.equal(
-            alsDiagnostics
-                .map((d) => `${d.severity}: ${d.message.split('[')[0].trim()}`)
-                .join('\n'),
+            alsDiagnostics.map((d) => `${d.severity}: ${d.message}`).join('\n'),
             `
-1: procedure "Hello" is not referenced
-1: bad casing of "Hello" declared at line 4
-1: bad casing of "Hello" declared at line 4
-1: incorrect layout
-1: "begin" in wrong column, should be in column 1
-1: bad indentation
-1: possibly useless assignment to "X", value might not be referenced
-1: "X" may be referenced before it has a value
+1: procedure "Hello" is not referenced [-gnatwu]
+1: bad casing of "Hello" declared at line 4 [-gnatyr]
+1: bad casing of "Hello" declared at line 4 [-gnatyr]
+1: incorrect layout [-gnatyl]
+1: "begin" in wrong column, should be in column 1 [-gnatyl]
+1: bad indentation [-gnaty0]
+1: possibly useless assignment to "X", value might not be referenced [-gnatwm]
+1: "X" may be referenced before it has a value [enabled by default]
 1: this is a low warning
 0: missing ";"
 2: this is an extra message