test: add test files

Author: mununki

tests/ppx/react/expected/commentAtTop.res.txt

@@ -1,10 +1,17 @@
-@obj external makeProps: (~msg: 'msg, ~key: string=?, unit) => {"msg": 'msg} = "" // test React JSX file
+type props<'msg> = { // test React JSX file
+  @optional key: string,
+  @optional ref: React.ref<Js.Nullable.t<Dom.element>>,
+  msg: 'msg,
+}
+
+let make = ({msg, ref}: props<'msg>) => {
+  let _ = ref
 
-let make =
-  (@warning("-16") ~msg) => {
+  {
     ReactDOMRe.createDOMElementVariadic("div", [{msg->React.string}])
   }
+}
 let make = {
-  let \"CommentAtTop" = (\"Props": {"msg": 'msg}) => make(~msg=\"Props"["msg"])
+  let \"CommentAtTop" = (props: props<_>) => make(props)
   \"CommentAtTop"
 }

tests/ppx/react/expected/externalWithCustomName.res.txt

@@ -1,9 +1,12 @@
 module Foo = {
-  @obj
-  external componentProps: (~a: int, ~b: string, ~key: string=?, unit) => {"a": int, "b": string} =
-    ""
+  type props<'a, 'b> = {
+    @optional key: string,
+    @optional ref: React.ref<Js.Nullable.t<Dom.element>>,
+    a: 'a,
+    b: 'b,
+  }
   @module("Foo")
-  external component: React.componentLike<{"a": int, "b": string}, React.element> = "component"
+  external component: React.componentLike<props<'a, 'b>, React.element> = "component"
 }
 
-let t = React.createElement(Foo.component, Foo.componentProps(~a=1, ~b={"1"}, ()))
+let t = React.createElement(Foo.component, {a: 1, b: "1"})

tests/ppx/react/expected/innerModule.res.txt

@@ -1,25 +1,35 @@
 module Bar = {
-  @obj external makeProps: (~a: 'a, ~b: 'b, ~key: string=?, unit) => {"a": 'a, "b": 'b} = ""
-  let make =
-    (@warning("-16") ~a, @warning("-16") ~b, _) => {
-      Js.log("This function should be named `InnerModule.react$Bar`")
-      ReactDOMRe.createDOMElementVariadic("div", [])
-    }
+  type props<'a, 'b> = {
+    @optional key: string,
+    @optional ref: React.ref<Js.Nullable.t<Dom.element>>,
+    a: 'a,
+    b: 'b,
+  }
+  let make = ({a, b, ref}: props<'a, 'b>) => {
+    let _ = ref
+
+    Js.log("This function should be named `InnerModule.react$Bar`")
+    ReactDOMRe.createDOMElementVariadic("div", [])
+  }
   let make = {
-    let \"InnerModule$Bar" = (\"Props": {"a": 'a, "b": 'b}) =>
-      make(~b=\"Props"["b"], ~a=\"Props"["a"], ())
+    let \"InnerModule$Bar" = (props: props<_>) => make(props)
     \"InnerModule$Bar"
   }
-  @obj external componentProps: (~a: 'a, ~b: 'b, ~key: string=?, unit) => {"a": 'a, "b": 'b} = ""
+  type props<'a, 'b> = {
+    @optional key: string,
+    @optional ref: React.ref<Js.Nullable.t<Dom.element>>,
+    a: 'a,
+    b: 'b,
+  }
+
+  let component = ({a, b, ref}: props<'a, 'b>) => {
+    let _ = ref
 
-  let component =
-    (@warning("-16") ~a, @warning("-16") ~b, _) => {
-      Js.log("This function should be named `InnerModule.react$Bar$component`")
-      ReactDOMRe.createDOMElementVariadic("div", [])
-    }
+    Js.log("This function should be named `InnerModule.react$Bar$component`")
+    ReactDOMRe.createDOMElementVariadic("div", [])
+  }
   let component = {
-    let \"InnerModule$Bar$component" = (\"Props": {"a": 'a, "b": 'b}) =>
-      component(~b=\"Props"["b"], ~a=\"Props"["a"], ())
+    let \"InnerModule$Bar$component" = (props: props<_>) => make(props)
     \"InnerModule$Bar$component"
   }
 }

tests/ppx/react/expected/newtype.res.txt

@@ -1,15 +1,16 @@
-@obj
-external makeProps: (
-  ~a: '\"type-a",
-  ~b: array<option<[#Foo('\"type-a")]>>,
-  ~c: 'a,
-  ~key: string=?,
-  unit,
-) => {"a": '\"type-a", "b": array<option<[#Foo('\"type-a")]>>, "c": 'a} = ""
-let make = (type a, ~a: a, ~b: array<option<[#Foo(a)]>>, ~c: 'a, _) =>
-  ReactDOMRe.createDOMElementVariadic("div", [])
+type props<'a, 'b, 'c> = {
+  @optional key: string,
+  @optional ref: React.ref<Js.Nullable.t<Dom.element>>,
+  a: 'a,
+  b: 'b,
+  c: 'c,
+}
+let make = ({ref}: props<'a, 'b, 'c>) => {
+  let _ = ref
+  (type a, ~a: a, ~b: array<option<[#Foo(a)]>>, ~c: 'a, _) =>
+    ReactDOMRe.createDOMElementVariadic("div", [])
+}
 let make = {
-  let \"Newtype" = (\"Props": {"a": '\"type-a", "b": array<option<[#Foo('\"type-a")]>>, "c": 'a}) =>
-    make(~c=\"Props"["c"], ~b=\"Props"["b"], ~a=\"Props"["a"])
+  let \"Newtype" = (props: props<_>) => make(props)
   \"Newtype"
 }

tests/ppx/react/expected/topLevel.res.txt

@@ -1,10 +1,16 @@
-@obj external makeProps: (~a: 'a, ~b: 'b, ~key: string=?, unit) => {"a": 'a, "b": 'b} = ""
-let make =
-  (@warning("-16") ~a, @warning("-16") ~b, _) => {
-    Js.log("This function should be named 'TopLevel.react'")
-    ReactDOMRe.createDOMElementVariadic("div", [])
-  }
+type props<'a, 'b> = {
+  @optional key: string,
+  @optional ref: React.ref<Js.Nullable.t<Dom.element>>,
+  a: 'a,
+  b: 'b,
+}
+let make = ({a, b, ref}: props<'a, 'b>) => {
+  let _ = ref
+
+  Js.log("This function should be named 'TopLevel.react'")
+  ReactDOMRe.createDOMElementVariadic("div", [])
+}
 let make = {
-  let \"TopLevel" = (\"Props": {"a": 'a, "b": 'b}) => make(~b=\"Props"["b"], ~a=\"Props"["a"], ())
+  let \"TopLevel" = (props: props<_>) => make(props)
   \"TopLevel"
 }

tests/ppx/react/expected/typeConstraint.res.txt

@@ -1,8 +1,15 @@
-@obj external makeProps: (~a: 'a, ~b: 'b, ~key: string=?, unit) => {"a": 'a, "b": 'b} = ""
-let make:
-  type a. (~a: a, ~b: a, a) => React.element =
-  (~a, ~b, _) => ReactDOMRe.createDOMElementVariadic("div", [])
+type props<'a, 'b> = {
+  @optional key: string,
+  @optional ref: React.ref<Js.Nullable.t<Dom.element>>,
+  a: 'a,
+  b: 'b,
+}
+let make: 'a. (~a: 'a, ~b: 'a, 'a) => React.element = ({ref}: props<'a, 'b>) => {
+  let _ = ref
+  (type a): ((~a: a, ~b: a, a) => React.element) =>
+    (~a, ~b, _) => ReactDOMRe.createDOMElementVariadic("div", [])
+}
 let make = {
-  let \"TypeConstraint" = (\"Props": {"a": 'a, "b": 'b}) => make(~b=\"Props"["b"], ~a=\"Props"["a"])
+  let \"TypeConstraint" = (props: props<_>) => make(props)
   \"TypeConstraint"
 }