Tweak some tests for uncurried.

Author: cristianoc

CHANGELOG.md

@@ -54,6 +54,7 @@
 - Convert `js.ml` files to `.res`. https://github.com/rescript-lang/rescript-compiler/pull/6835
 - Remove old `.ml` tests. https://github.com/rescript-lang/rescript-compiler/pull/6847
 - Make compiler libs ready for uncurried mode. https://github.com/rescript-lang/rescript-compiler/pull/6861
+- Make tests ready for uncurried mode. https://github.com/rescript-lang/rescript-compiler/pull/6862
 
 #### :nail_care: Polish
 

jscomp/test/ari_regress_test.js

@@ -15,7 +15,7 @@ let g1 = (x, y) => {
 }
 let x = gg(3, 5)(6)
 
-let v = g1(3, 4)(6, ...)
+let v = g1(3, 4)(6, _)
 
 let suites = {
   open Mt
@@ -32,7 +32,7 @@ let suites = {
       ),
     ),
     ("curry3", _ => Eq(x, 14)),
-    (__LOC__, _ => Eq(h.contents, 1)),
+    (__LOC__, _ => Eq(h.contents, 2)),
   }
 }
 

jscomp/test/ari_regress_test.res

@@ -114,7 +114,7 @@ let f = x =>
  u */
 
 let g = x => {
-  let u = add5(
+  let u = (a,b) => add5(
     x,
     {
       incr(v)
@@ -124,7 +124,8 @@ let g = x => {
       incr(v)
       2
     },
-    ...
+    a,
+    b
   )
   all_v := list{v.contents, ...all_v.contents}
   u
@@ -141,6 +142,6 @@ let () = {
   eq(__LOC__, b, 11)
   eq(__LOC__, c, 10)
   eq(__LOC__, d, 11)
-  eq(__LOC__, all_v.contents, list{8, 8, 6, 6, 4, 2})
+  eq(__LOC__, all_v.contents, list{8, 6, 6, 4, 4, 2})
 }
 let () = Mt.from_pair_suites(__MODULE__, suites.contents)