show working [@@inline never]

Author: bobzhang

jscomp/test/gpr_1409_test.js

@@ -141,20 +141,15 @@ function keys(xs, ys) {
 eq("File \"gpr_1409_test.ml\", line 69, characters 6-13", keys({
           hd: "hi",
           tl: /* [] */0
-        }, Object.keys({
-              hi: 2
-            })), true);
+        }, Object.keys(test3(undefined, undefined))), true);
 
 eq("File \"gpr_1409_test.ml\", line 71, characters 6-13", keys({
           hd: "hi",
           tl: {
             hd: "open",
             tl: /* [] */0
           }
-        }, Object.keys({
-              open: 2,
-              hi: 2
-            })), true);
+        }, Object.keys(test3(2, undefined))), true);
 
 eq("File \"gpr_1409_test.ml\", line 73, characters 6-13", keys({
           hd: "hi",
@@ -165,11 +160,7 @@ eq("File \"gpr_1409_test.ml\", line 73, characters 6-13", keys({
               tl: /* [] */0
             }
           }
-        }, Object.keys({
-              open: 2,
-              xx: 2,
-              hi: 2
-            })), true);
+        }, Object.keys(test3(2, 2))), true);
 
 Mt.from_pair_suites("Gpr_1409_test", suites.contents);
 

jscomp/test/gpr_1409_test.ml

@@ -42,7 +42,7 @@ external mangle : ?_open:int -> ?xx__hi:int -> hi:int -> unit -> _ = ""
 
 let test2 = mangle ~hi:2 ()
 
-let test3 _open xx__hi = 
+let [@inline never] test3 _open xx__hi = 
   (* Js.log "no inlin"; *)
   mangle ?_open ?xx__hi ~hi:2 ()