Add inlining tests for curried/uncurried normal/async functions.

Author: cristianoc

CHANGELOG.md

@@ -22,7 +22,7 @@ subset of the arguments, and return a curried type with the remaining ones https
 - Add support for uncurried externals https://github.com/rescript-lang/rescript-compiler/pull/5815 https://github.com/rescript-lang/rescript-compiler/pull/5819 https://github.com/rescript-lang/rescript-compiler/pull/5830
 - Parser/Printer: unify uncurried functions of arity 0, and of arity 1 taking unit. There's now only arity 1 in the source language. https://github.com/rescript-lang/rescript-compiler/pull/5825
 - Add support for default arguments in uncurried functions https://github.com/rescript-lang/rescript-compiler/pull/5835
-- Inline uncurried application when it is safe
+- Inline uncurried application when it is safe https://github.com/rescript-lang/rescript-compiler/pull/5847
 
 #### :boom: Breaking Change
 

jscomp/test/async_inline.js

@@ -31,9 +31,41 @@ async function broken$1(someAsyncFunction) {
 
 var broken$2 = broken$1;
 
+function curriedId(x) {
+  return x;
+}
+
+async function curriedIdAsync(x) {
+  return x;
+}
+
+function uncurriedId(x) {
+  return x;
+}
+
+async function uncurriedIdAsync(x) {
+  return x;
+}
+
+var tcia = curriedIdAsync(3);
+
+var tui = 3;
+
+var tuia = uncurriedIdAsync(3);
+
+var tci = 3;
+
 exports.willBeInlined = willBeInlined;
 exports.inlined = inlined;
 exports.wrapSomethingAsync = wrapSomethingAsync;
 exports.M = M;
 exports.broken = broken$2;
+exports.curriedId = curriedId;
+exports.curriedIdAsync = curriedIdAsync;
+exports.uncurriedId = uncurriedId;
+exports.uncurriedIdAsync = uncurriedIdAsync;
+exports.tci = tci;
+exports.tcia = tcia;
+exports.tui = tui;
+exports.tuia = tuia;
 /* inlined Not a pure module */

jscomp/test/async_inline.res

@@ -26,3 +26,13 @@ let broken = async (someAsyncFunction) => {
 }
 
 let broken = someAsyncFunction => broken(someAsyncFunction)
+
+let curriedId = x => x
+let curriedIdAsync = async x => x
+let uncurriedId = (.x ) => x
+let uncurriedIdAsync = async (.x ) => x
+
+let tci = curriedId(3)
+let tcia = curriedIdAsync(3)
+let tui = uncurriedId(. 3)
+let tuia = uncurriedIdAsync(. 3)