Add test cases for completion of react.component

analysis/src/NewCompletions.ml

@@ -602,6 +602,15 @@ let processCompletable ~findItems ~package ~rawOpens
       "variadic";
     ]
     |> List.filter (fun decorator -> Utils.startsWith decorator prefix)
+    |> List.map (fun decorator ->
+           let parts = String.split_on_char '.' prefix in
+           let len = String.length prefix in
+           let dec2 =
+             if List.length parts > 1 then
+               String.sub decorator len (String.length decorator - len)
+             else decorator
+           in
+           dec2)
     |> List.map mkDecorator
   | Clabel (funPath, prefix) ->
     let labels =

analysis/tests/src/Complete.res

@@ -53,5 +53,8 @@ let zzz = 11
 
 //^com let comp = <O.Comp z
 
+//^doc
 
-//^doc
+//^com @reac
+
+//^com @react.

analysis/tests/src/expected/Complete.res.txt

@@ -538,3 +538,21 @@ DocumentSymbol tests/src/Complete.res
 }
 ]
 
+Complete tests/src/Complete.res 56:2
+[{
+    "label": "react.component",
+    "kind": 4,
+    "tags": [],
+    "detail": "",
+    "documentation": null
+  }]
+
+Complete tests/src/Complete.res 58:2
+[{
+    "label": "component",
+    "kind": 4,
+    "tags": [],
+    "detail": "",
+    "documentation": null
+  }]
+