caml_format_test

Author: zth

jscomp/test/caml_format_test.js

@@ -26,12 +26,15 @@ let of_string = [
 /* "0.", 0. */
 /* |] */
 
-let from_float_of_string = xs => xs |> Array.mapi((i, (a, b)) => string_of_float)
+let from_float_of_string = xs => Array.mapi((i, (a, b)) => string_of_float, xs)
 
 let from_of_string = xs =>
-  of_string
-  |> Array.mapi((i, (a, b)) => (`of_string ${string_of_int(i)}`, _ => Mt.Eq(int_of_string(b), a)))
-  |> Array.to_list
+  Array.to_list(
+    Array.mapi(
+      (i, (a, b)) => (`of_string ${string_of_int(i)}`, _ => Mt.Eq(int_of_string(b), a)),
+      of_string,
+    ),
+  )
 
 let to_str = s => int_of_string(s)
 
@@ -51,12 +54,15 @@ let suites: Mt.pair_suites = \"@"(
           (FP_zero, "0."),
         ]
 
-        pairs
-        |> Array.mapi((i, (a, b)) => (
-          `infinity_of_string ${string_of_int(i)}`,
-          _ => Mt.Eq(a, \"@@"(classify_float, float_of_string(b))),
-        ))
-        |> Array.to_list
+        Array.to_list(
+          Array.mapi(
+            (i, (a, b)) => (
+              `infinity_of_string ${string_of_int(i)}`,
+              _ => Mt.Eq(a, \"@@"(classify_float, float_of_string(b))),
+            ),
+            pairs,
+          ),
+        )
       },
       \"@"(
         list{
@@ -66,19 +72,22 @@ let suites: Mt.pair_suites = \"@"(
         {
           let pairs = [(3232., "32_32.0"), (1.000, "1.000"), (12.000, "12.000")]
 
-          pairs
-          |> Array.mapi((i, (a, b)) => (
-            `normal_float_of_string ${string_of_int(i)}`,
-            _ => Mt.Eq(a, float_of_string(b)),
-          ))
-          |> Array.to_list
+          Array.to_list(
+            Array.mapi(
+              (i, (a, b)) => (
+                `normal_float_of_string ${string_of_int(i)}`,
+                _ => Mt.Eq(a, float_of_string(b)),
+              ),
+              pairs,
+            ),
+          )
         },
       ),
     ),
   ),
 )
 
-let ff = format_int("%32d")
+let ff = l => format_int("%32d", l)
 
 external format_float: (string, float) => string = "?format_float"
 
@@ -142,25 +151,30 @@ let of_string_data = [
 /* module Mt = Mock_mt */
 
 let () = \"@@"(
-  Mt.from_pair_suites(__MODULE__),
+  l => Mt.from_pair_suites(__MODULE__, l),
   \"@"(
     suites,
     \"@"(
-      Array.mapi(
-        (i, (fmt, f, str_result)) => (
-          `loat_format ${string_of_int(i)}`,
-          _ => Mt.Eq(format_float(fmt, f), str_result),
+      Array.to_list(
+        Array.mapi(
+          (i, (fmt, f, str_result)) => (
+            `loat_format ${string_of_int(i)}`,
+            _ => Mt.Eq(format_float(fmt, f), str_result),
+          ),
+          float_data,
         ),
-        float_data,
-      ) |> Array.to_list,
+      ),
       \"@"(
         int64_suites,
-        of_string_data
-        |> Array.mapi((i, (a, b)) => (
-          `int64_of_string ${string_of_int(i)} `,
-          _ => Mt.Eq(Int64.of_string(b), a),
-        ))
-        |> Array.to_list,
+        Array.to_list(
+          Array.mapi(
+            (i, (a, b)) => (
+              `int64_of_string ${string_of_int(i)} `,
+              _ => Mt.Eq(Int64.of_string(b), a),
+            ),
+            of_string_data,
+          ),
+        ),
       ),
     ),
   ),

jscomp/test/caml_format_test.res

@@ -134,10 +134,10 @@ let g = x => {
 }
 let a = f(0)(3, 4)
 
-let b = f(0, 3, 5)
+let b = f(0)(3, 5)
 
-let c = g(0, 3, 4)
-let d = g(0, 3, 5)
+let c = g(0)(3, 4)
+let d = g(0)(3, 5)
 
 let () = {
   eq(__LOC__, a, 10)