add more tests

Author: Hongbo Zhang

jscomp/lam_compile_group.ml

@@ -422,7 +422,7 @@ let lambda_as_module
     (lam : Lambda.lambda) = 
   begin 
     Js_config.set_current_file filename ;  
-    Js_config.iset_debug_file "jsoo_485_test.ml";
+    Js_config.iset_debug_file "jsoo_400_test.ml";
     let lambda_output = compile ~filename output_prefix false env sigs lam in
     let (//) = Filename.concat in 
     let basename =  

jscomp/test/.depend

@@ -334,8 +334,8 @@ js_obj_test.cmj : mt.cmi
 js_obj_test.cmx : mt.cmx
 js_val.cmj :
 js_val.cmx :
-jsoo_400_test.cmj : ../stdlib/string.cmi
-jsoo_400_test.cmx : ../stdlib/string.cmx
+jsoo_400_test.cmj : ../stdlib/string.cmi mt.cmi
+jsoo_400_test.cmx : ../stdlib/string.cmx mt.cmx
 jsoo_485.cmj :
 jsoo_485.cmx :
 jsoo_485_test.cmj :
@@ -1092,8 +1092,8 @@ js_obj_test.cmo : mt.cmi
 js_obj_test.cmj : mt.cmj
 js_val.cmo :
 js_val.cmj :
-jsoo_400_test.cmo : ../stdlib/string.cmi
-jsoo_400_test.cmj : ../stdlib/string.cmj
+jsoo_400_test.cmo : ../stdlib/string.cmi mt.cmi
+jsoo_400_test.cmj : ../stdlib/string.cmj mt.cmj
 jsoo_485.cmo :
 jsoo_485.cmj :
 jsoo_485_test.cmo :

jscomp/test/jsoo_400_test.js

@@ -1,6 +1,8 @@
 'use strict';
 
+var Mt         = require("./mt");
 var Caml_int32 = require("../../lib/js/caml_int32");
+var Block      = require("../../lib/js/block");
 
 function u() {
   var exit = 0;
@@ -18,5 +20,18 @@ function u() {
 
 }
 
+Mt.from_pair_suites("jsoo_400_test.ml", /* :: */[
+      /* tuple */[
+        'File "jsoo_400_test.ml", line 8, characters 3-10',
+        function () {
+          return /* ThrowAny */Block.__(3, [function () {
+                      u(/* () */0);
+                      return /* () */0;
+                    }]);
+        }
+      ],
+      /* [] */0
+    ]);
+
 exports.u = u;
-/* No side effect */
+/*  Not a pure module */

jscomp/test/jsoo_400_test.ml

@@ -1,4 +1,9 @@
 let u () =
   match String.length "123" with
   | n -> 3 / 0
-  | exception _ -> 42
+  | exception _ -> 42 (* TODO: could be optimized *)
+
+;; Mt.from_pair_suites __FILE__
+  [
+   __LOC__, fun _ -> ThrowAny (fun _ -> ignore (u ()))    
+  ]