From 24ffc601aa052b001087f32ca7c6cbff00256a99 Mon Sep 17 00:00:00 2001
From: Gabriel Nordeborn <gabbe.nord@gmail.com>
Date: Thu, 22 Feb 2024 10:53:51 +0100
Subject: [PATCH] add test case for intrinsic elements

---
 analysis/tests/src/CompletionJsx.res          | 10 +++++++
 .../tests/src/expected/CompletionJsx.res.txt  | 27 +++++++++++++++++++
 2 files changed, 37 insertions(+)

diff --git a/analysis/tests/src/CompletionJsx.res b/analysis/tests/src/CompletionJsx.res
index dca147687..0dfa5db8d 100644
--- a/analysis/tests/src/CompletionJsx.res
+++ b/analysis/tests/src/CompletionJsx.res
@@ -51,3 +51,13 @@ module CompWithoutJsxPpx = {
 
 // <h1 hidd
 //         ^com
+
+module IntrinsicElementLowercase = {
+  type props = {name?: string, age?: int}
+
+  @module("react")
+  external make: (@as("mesh") _, props) => Jsx.element = "createElement"
+}
+
+// <IntrinsicElementLowercase
+//                            ^com
diff --git a/analysis/tests/src/expected/CompletionJsx.res.txt b/analysis/tests/src/expected/CompletionJsx.res.txt
index fbf3e6e80..e70b235d3 100644
--- a/analysis/tests/src/expected/CompletionJsx.res.txt
+++ b/analysis/tests/src/expected/CompletionJsx.res.txt
@@ -516,3 +516,30 @@ Path PervasivesU.JsxDOM.domProps
     "documentation": null
   }]
 
+Complete src/CompletionJsx.res 61:30
+posCursor:[61:30] posNoWhite:[61:28] Found expr:[61:4->61:29]
+JSX <IntrinsicElementLowercase:[61:4->61:29] > _children:None
+Completable: Cjsx([IntrinsicElementLowercase], "", [])
+Package opens Pervasives.JsxModules.place holder
+Resolved opens 1 pervasives
+Path IntrinsicElementLowercase.make
+[{
+    "label": "name",
+    "kind": 4,
+    "tags": [],
+    "detail": "option<string>",
+    "documentation": null
+  }, {
+    "label": "age",
+    "kind": 4,
+    "tags": [],
+    "detail": "option<int>",
+    "documentation": null
+  }, {
+    "label": "key",
+    "kind": 4,
+    "tags": [],
+    "detail": "string",
+    "documentation": null
+  }]
+