add tests

Author: bobzhang

jscomp/test/.depend

@@ -554,7 +554,7 @@ test_incr_ref.cmj :
 test_index.cmj : ../runtime/js.cmj
 test_int_map_find.cmj :
 test_internalOO.cmj :
-test_is_js.cmj : test_is_js.cmi
+test_is_js.cmj : mt.cmj test_is_js.cmi
 test_js_ffi.cmj :
 test_let.cmj :
 test_list.cmj :

jscomp/test/gpr_3142_test.ml

@@ -15,7 +15,7 @@ let v,u = tToJs, tFromJs
 
 
 (* not applicable to thiis type, and unused warning*)
-#if false then
+#if 0 then
 type t0 =  
   [ `a of int [@bs.as "hi"] ]
   [@@bs.deriving jsConverter]

jscomp/test/test_is_js.js

@@ -1 +1,21 @@
-/* This output is empty. Its source's type definitions, externals and/or unused code got optimized away. */
+'use strict';
+
+var Mt = require("./mt.js");
+
+var suites = /* record */[/* contents : [] */0];
+
+var test_id = /* record */[/* contents */0];
+
+function b(loc, x) {
+  return Mt.bool_suites(test_id, suites, loc, x);
+}
+
+b("File \"test_is_js.ml\", line 15, characters 2-9", true);
+
+b("File \"test_is_js.ml\", line 23, characters 2-9", true);
+
+b("File \"test_is_js.ml\", line 37, characters 2-9", true);
+
+Mt.from_pair_suites("test_is_js.ml", suites[0]);
+
+/*  Not a pure module */

jscomp/test/test_is_js.ml

@@ -4,3 +4,38 @@ let v =
 #else    
   false
 #end  
+
+let suites :  Mt.pair_suites ref  = ref []
+let test_id = ref 0
+let eq loc x y = Mt.eq_suites ~test_id ~suites loc x y 
+let b loc x = Mt.bool_suites ~test_id ~suites loc x;;
+
+
+#if 1 then 
+b __LOC__  true;;
+#end
+
+#if 0 then 
+b __LOC__ false ;;
+#end
+
+#if 1 > 0 then 
+b __LOC__ true;;
+#end
+
+
+#if 1 < 0 then 
+b __LOC__ false;;
+#end
+
+#if 0 > 1 then 
+b __LOC__ false;;
+#end
+
+
+#if 0 < 1 then 
+b __LOC__ true;;
+#end
+
+
+let () = Mt.from_pair_suites __FILE__ !suites