Make tests uncurried-ready.

Tweak tests so they build in uncurried mode.

Author: cristianoc

jscomp/test/UntaggedVariants.js

@@ -375,7 +375,7 @@ module Arr = {
 
   let classify = async (a: arr) =>
     switch a {
-    | Array(arr) => Js.log(arr->Belt.Array.joinWith("-"))
+    | Array(arr) => Js.log(arr->Belt.Array.joinWith("-", x => x))
     | String(s) => Js.log(s)
     | Promise(p) => Js.log(await p)
     | Object({userName}) => Js.log(userName)
@@ -408,7 +408,7 @@ module AllInstanceofTypes = {
     | Object({userName}) => Js.log(userName)
     | Date(date) => Js.log(date->Js.Date.toString)
     | RegExp(re) => Js.log(re->Js.Re.test_("test"))
-    | Array(arr) => Js.log(arr->Belt.Array.joinWith("-"))
+    | Array(arr) => Js.log(arr->Belt.Array.joinWith("-", x => x))
     | File(file) => Js.log(file->fileName)
     | Blob(blob) => Js.log(blob->blobSize)
     }

jscomp/test/UntaggedVariants.res

@@ -9,7 +9,7 @@ let eq = (loc, x, y) => {
     list{(loc ++ (" id " ++ string_of_int(test_id.contents)), _ => Mt.Eq(x, y)), ...suites.contents}
 }
 
-let test = Ext_filename_test.node_relative_path(true)
+let test = (x,y) => Ext_filename_test.node_relative_path(true, x, y)
 let () = /* TODO: adapt these tests to run on Windows. */
 if platform !== #win32 {
   eq(

jscomp/test/a_filename_test.js

@@ -1,5 +1,5 @@
-let f = x => \"+"(x)
-let g = f(3, 4)
+let f = x => \"+"(x, ...)
+let g = f(3)(4)
 
 let h = ref(0)
 
@@ -13,9 +13,9 @@ let g1 = (x, y) => {
   let () = incr(h)
   (xx, yy) => xx + yy + u
 }
-let x = gg(3, 5, 6)
+let x = gg(3, 5)(6)
 
-let v = g1(3, 4, 6)
+let v = g1(3, 4)(6, ...)
 
 let suites = {
   open Mt

jscomp/test/a_filename_test.res

@@ -44,9 +44,9 @@ let f3 = x => {
    So the best is never shrink functons which could change arity
 */
 let () = {
-  \"@@"(eq(__LOC__, 6), f0(. 1, 2, 3))
-  \"@@"(eq(__LOC__, 6), f1(1)(. 2, 3))
-  \"@@"(eq(__LOC__, 6), f2(. 1, 2)(3))
-  \"@@"(eq(__LOC__, 6), f3(1)(. 2, 3))
+  \"@@"(eq(__LOC__, 6, ...), f0(. 1, 2, 3))
+  \"@@"(eq(__LOC__, 6, ...), f1(1)(. 2, 3))
+  \"@@"(eq(__LOC__, 6, ...), f2(. 1, 2)(3))
+  \"@@"(eq(__LOC__, 6, ...), f3(1)(. 2, 3))
 }
 let () = Mt.from_pair_suites(__MODULE__, suites.contents)

jscomp/test/ari_regress_test.res

@@ -57,6 +57,6 @@ type callback<'input, 'output> = 'input => 'output
 external useCallback: (@uncurry ('input => 'output)) => callback<'input, 'output> = "useCallback"
 
 let onSubmit = () =>
-  useCallback(async (_a, b) => {
+  useCallback(async b => {
     await b
   })

jscomp/test/arity_deopt.res

@@ -1,6 +1,6 @@
 let (test_id, suites) = (ref(0), ref(list{}))
-let eq = loc => Mt_global.collect_eq(test_id, suites, loc)
-let approx = loc => Mt_global.collect_approx(test_id, suites, loc)
+let eq = (loc, x, y) => Mt_global.collect_eq(test_id, suites, loc, x, y)
+let approx = (loc, x, y) => Mt_global.collect_approx(test_id, suites, loc, x, y)
 
 let bigint_compare = (x: bigint, y) => Pervasives.compare(x, y)
 let generic_compare = Pervasives.compare

jscomp/test/async_inline.js

@@ -27,9 +27,9 @@ type u = {
   y1: (int, int) => int,
 }
 
-let uf = u => u->y0Get(1)
-let uf1 = u => u->y1Get(1)
-let uf2 = u => u->y1Get(1, 2)
+let uf = u => y0Get(u)(1)
+let uf1 = u => y1Get(u)(1, ...)
+let uf2 = u => y1Get(u)(1, 2)
 
 @deriving(abstract)
 type u1 = {

jscomp/test/async_inline.res

@@ -14,7 +14,7 @@ and x = private {
 let f: x
 type u
 let uf: u => int
-let uf1: (u, int) => int
+let uf1: u => int => int
 let uf2: u => int
 
 type u1