U614-031: Fix formatting for simple aggregate

We have two case of aggregate completion:
"Type'(A => 1)" or "(A => 1)"
=> Only retrieved the prefix for the first type

Add a test.

Author: Boulanger

source/ada/lsp-ada_completions-parameters.adb

@@ -713,8 +713,15 @@ package body LSP.Ada_Completions.Parameters is
       Column : out Langkit_Support.Slocs.Column_Number)
       return Libadalang.Analysis.Ada_Node'Class is
    begin
-      Column := A.Parent.Sloc_Range.Start_Column;
-      return A.Parent;
+      if A.Parent.Kind in Ada_Qual_Expr_Range then
+         --  we have: My_Type'(
+         Column := A.Parent.Sloc_Range.Start_Column;
+         return A.Parent;
+      else
+         --  not prefixed by a type
+         Column := A.Sloc_Range.Start_Column;
+         return A;
+      end if;
    end Get_Prefix_Node;
 
    ----------------

testsuite/ada_lsp/U614-031.completion.simple_aggregate_formatting/default.gpr

@@ -0,0 +1,6 @@
+project Default is
+
+   for Source_Dirs use ("src");
+   for Main use ("foo.adb");
+
+end Default;

testsuite/ada_lsp/U614-031.completion.simple_aggregate_formatting/src/foo.adb

@@ -0,0 +1,10 @@
+procedure Foo is
+   type My_Record is tagged record
+      I, J : Integer;
+      F    : Float;
+   end record;
+
+   Bar : My_Record := My_Record'(
+begin
+   null;
+end Foo;