Add test for function call, and support for list{...}.

Author: cristianoc

CHANGELOG.md

@@ -1,5 +1,5 @@
 ## master
-- ppx autocomplete: handle variant and polymorphic variant without braces.
+- ppx autocomplete: handle values to the rhs of `=` without braces (variant, polymorphic variant, function call, list literal).
 
 ## 1.1.1
 

analysis/src/PartialParser.ml

@@ -69,8 +69,8 @@ let skipOptVariant text i =
    Find JSX context ctx for component M to autocomplete id (already parsed) as a prop.
    ctx ::= <M args id
    arg ::= id | id = [?] val
-   val ::= id | "abc" | 42 | {...} | optVariant (...) | [...]
-   optVariant ::= A | #a |  _nothing_
+   val ::= id | "abc" | 42 | optVariant {...} | optVariant (...) | [...]
+   optVariant ::= a | A | #a |  #A |  _nothing_
  *)
 let findJsxContext text offset =
   let rec loop identsSeen i =
@@ -79,7 +79,7 @@ let findJsxContext text offset =
       match text.[i] with
       | '}' ->
         let i1 = findBackSkippingCommentsAndStrings text '{' '}' (i - 1) 0 in
-        if i1 > 0 then beforeValue identsSeen i1 else None
+        if i1 > 0 then beforeParen identsSeen i1 else None
       | ')' ->
         let i1 = findBackSkippingCommentsAndStrings text '(' ')' (i - 1) 0 in
         if i1 > 0 then beforeParen identsSeen i1 else None

analysis/tests/src/Jsx.res

@@ -21,5 +21,7 @@ let y = 44
 
 //^com <M prop=A(3) k
 
+//^com <M prop=foo(1+2) k
+
+//^com <M prop=list{1,2,3} k
 
-//^com <M prop = #A (3) k

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

@@ -71,6 +71,7 @@ Complete tests/src/Jsx.res 11:2
   }]
 
 Complete tests/src/Jsx.res 18:2
+skipOptIdent
 [{
     "label": "key",
     "kind": 4,
@@ -89,7 +90,17 @@ skipOptIdent
     "documentation": null
   }]
 
-Complete tests/src/Jsx.res 23:2
+Complete tests/src/Jsx.res 22:2
+skipOptIdent
+[{
+    "label": "key",
+    "kind": 4,
+    "tags": [],
+    "detail": "string",
+    "documentation": null
+  }]
+
+Complete tests/src/Jsx.res 24:2
 skipOptIdent
 [{
     "label": "key",