Add a util g and snapshot previous changes

Author: bobzhang

jscomp/cleanlib.js

@@ -1,7 +1,7 @@
 #!/usr/bin/env node
 var cp = require('child_process')
 var fs = require('fs')
-exports.run = function () {
+function run() {
     cp.execSync(`make clean`)
     if (fs.existsSync(`stdlib-406`)) {
         cp.execSync(`git clean -dfx stdlib-406`)
@@ -13,3 +13,5 @@ exports.run = function () {
 if(require.main === module){
     run()
 }
+
+exports.run = run

jscomp/test/adt_optimize_test.js

@@ -160,7 +160,7 @@ function f11(x) {
           Caml_builtin_exceptions.assert_failure,
           /* tuple */[
             "adt_optimize_test.ml",
-            155,
+            191,
             9
           ]
         ];

jscomp/test/g

@@ -0,0 +1,2 @@
+#!/bin/sh
+BS_DEBUG_FILE=$1 ../../lib/bsc.exe -I ../others/ -I ../stdlib-402 -I ../runtime/ -c $1

jscomp/test/local_exception_test.js

@@ -19,20 +19,12 @@ var d = [
   3
 ];
 
-var A$1 = Caml_exceptions.create("Local_exception_test.A");
-
-var x = [
-  A$1,
-  3
-];
-
 var u = B;
 
+exports.A = A;
 exports.v = v;
 exports.B = B;
 exports.u = u;
 exports.D = D;
 exports.d = d;
-exports.A = A$1;
-exports.x = x;
 /* No side effect */

jscomp/test/recursive_module.js

@@ -1,10 +1,22 @@
 'use strict';
 
+var Mt = require("./mt.js");
+var Curry = require("../../lib/js/curry.js");
+var Js_exn = require("../../lib/js/js_exn.js");
 var Caml_module = require("../../lib/js/caml_module.js");
+var Caml_builtin_exceptions = require("../../lib/js/caml_builtin_exceptions.js");
+
+var suites = /* record */[/* contents : [] */0];
+
+var test_id = /* record */[/* contents */0];
+
+function eq(loc, x, y) {
+  return Mt.eq_suites(test_id, suites, loc, x, y);
+}
 
 var Int32 = Caml_module.init_mod([
       "recursive_module.ml",
-      9,
+      14,
       6
     ], [[
         0,
@@ -24,12 +36,34 @@ Caml_module.update_mod([[
 
 var Int3 = Caml_module.init_mod([
       "recursive_module.ml",
-      14,
+      19,
       6
     ], [[0]]);
 
 Caml_module.update_mod([[0]], Int3, Int3);
 
+var tmp;
+
+try {
+  Curry._1(Int3[/* u */0], 3);
+  tmp = 3;
+}
+catch (raw_exn){
+  var exn = Js_exn.internalToOCamlException(raw_exn);
+  if (exn[0] === Caml_builtin_exceptions.undefined_recursive_module) {
+    tmp = 4;
+  } else {
+    throw exn;
+  }
+}
+
+eq("File \"recursive_module.ml\", line 24, characters 6-13", 4, tmp);
+
+Mt.from_pair_suites("recursive_module.ml", suites[0]);
+
+exports.suites = suites;
+exports.test_id = test_id;
+exports.eq = eq;
 exports.Int32 = Int32;
 exports.Int3 = Int3;
 /* Int32 Not a pure module */