WIP

Author: hhugo

compiler/tests-compiler/call_gen.ml

@@ -42,11 +42,10 @@ module M1 = struct
   let%expect_test "executed code" =
     compile_and_run code;
     [%expect {|
-      10
-      10
-      14
-      25
-      |}]
+    10
+    10
+    14
+    25 |}]
 
   let%expect_test "generated code" =
     let generated = compile_and_parse code in
@@ -149,6 +148,5 @@ module M2 = struct
       15
       20
       15
-      20
-      |}]
+      20 |}]
 end

compiler/tests-compiler/gh1559.ml

@@ -60,8 +60,8 @@ let () = my_ref := 2
 |}
   in
   Util.compile_and_run prog;
-  [%expect
-    {| 1 |}];
+  [%expect {|
+    1 |}];
   let program = Util.compile_and_parse prog in
   Util.print_program program;
   [%expect
@@ -165,8 +165,8 @@ let () = my_ref := 2
 |}
   in
   Util.compile_and_run prog;
-  [%expect
-    {| 2 |}];
+  [%expect {|
+    2 |}];
   let program = Util.compile_and_parse prog in
   Util.print_program program;
   [%expect

compiler/tests-compiler/gh1768.ml

@@ -55,7 +55,7 @@ let () =
         global_data = runtime.caml_get_global_data(),
         Assert_failure = global_data.Assert_failure,
         _a_ = [0, caml_string_of_jsbytes("test.ml"), 4, 27];
-       function h(x){x[1] = function(x, y){return x + y | 0;};}
+       function h(x){x[1] = runtime.caml_add;}
        function f(param){
         return [0,
                 function(param){

compiler/tests-compiler/unix_fs.ml

@@ -136,8 +136,7 @@ in
 f (); Sys.chdir "/static"; f () |};
   [%expect {|
     File size: 3
-    Failure("caml_unix_stat: not implemented")
-    |}]
+    Failure("caml_unix_stat: not implemented")|}]
 
 let%expect_test "Unix.stat_dir" =
   compile_and_run
@@ -181,8 +180,7 @@ f (); Sys.chdir "/static"; f () |};
     {|
     File size: 3
     Failure("caml_unix_symlink: not implemented")
-    Failure("caml_unix_stat: not implemented")
-    |}]
+    Failure("caml_unix_stat: not implemented")|}]
 
 let%expect_test "Unix.symlink_Unix.readlink" =
   compile_and_run
@@ -249,8 +247,7 @@ in
 f (); Sys.chdir "/static"; f () |};
   [%expect {|
     File size: 3
-    Failure("caml_unix_lstat: not implemented")
-    |}]
+    Failure("caml_unix_lstat: not implemented")|}]
 
 let%expect_test "Unix.lstat_symlink" =
   compile_and_run