make test code warning free

Author: bobzhang

jscomp/test/ast_mapper_unused_warning_test.ml

@@ -1,4 +1,5 @@
 
+[@@@warning "-104"]
 
 
 type t = 

jscomp/test/bs_float_test.ml

@@ -37,7 +37,7 @@ let () =
   eq __LOC__ (F.toString (-1.5)) "-1.5"
 
 let () =
-  let open F in
+  let open! F in
   eq __LOC__ (2.0 + 3.0) 5.0;
   eq __LOC__ (2.0 - 3.0) (-1.0);
   eq __LOC__ (2.0 * 3.0) 6.0;

jscomp/test/bs_hashtbl_string_test.ml

@@ -86,7 +86,7 @@ module Md = Belt.Map
 module Md0 = Belt.Map.Dict
 let bench3 (type t) (m : (string,t) Belt.Id.comparable) =
 
-  let empty = Md.make m in
+  let empty = Md.make ~id:m in
   let module String = (val m) in
   let cmp = String.cmp in
   let table = ref (Md.getData empty) in
@@ -108,7 +108,7 @@ module Sx = (val Belt.Id.comparable ~cmp:(fun  (x : string) y -> compare x y ))
 module H = Belt.HashMap.String
 let bench4 () =
   let table =
-    H.make initial_size in
+    H.make ~hintSize:initial_size in
 
   for i  = 0 to  count do
     H.set
@@ -146,7 +146,7 @@ let bench5 () =
 module HI = Belt.HashMap.Int
 let bench6 () =
   let table =
-    HI.make initial_size in
+    HI.make ~hintSize:initial_size in
 
   for i  = 0 to  count do
     HI.set
@@ -165,7 +165,7 @@ module S = Belt.HashSet.Int
 let bench7 () =
   let table =
     (* [%time  *)
-    S.make (initial_size* 2)
+    S.make ~hintSize:(initial_size* 2)
     (* ]  *)
     in
 

jscomp/test/bs_int_test.ml

@@ -36,7 +36,7 @@ let () =
   eq __LOC__ (I.toString (-1)) "-1"
 
 let () =
-  let open I in
+  let open! I in
   eq __LOC__ (2 + 3) 5;
   eq __LOC__ (2 - 3) (-1);
   eq __LOC__ (2 * 3) 6;

jscomp/test/bs_set_int_test.ml

@@ -1,4 +1,4 @@
-let suites :  Mt.pair_suites ref  = ref []
+[@@@warning "-44"] let suites :  Mt.pair_suites ref  = ref []
 let test_id = ref 0
 let eq loc x y = Mt.eq_suites ~suites ~test_id loc x y 
 

jscomp/test/build.ninja

@@ -1,6 +1,6 @@
 
 bsc = ../lib/bsc.exe
-bsc_flags = -absname -bs-no-version-header -bs-diagnose -bs-cross-module-opt -bs-package-name bs-platform -bs-package-output commonjs:jscomp/test  -w -40-52  -bin-annot -I runtime -I $stdlib -I others
+bsc_flags = -absname -bs-no-version-header -bs-diagnose -bs-cross-module-opt -bs-package-name bs-platform -bs-package-output commonjs:jscomp/test  -w -3-6-26-27-29-30-32..40-44-45-52-60-9-106+104  -warn-error A  -I runtime -I $stdlib -I others
 
 rule cc
     command = $bsc -bs-cmi -bs-cmj $bsc_flags   -I test  $in

jscomp/test/caml_compare_test.ml

@@ -1,10 +1,10 @@
-
+[@@@warning "-45"]
 type  u  = A of int | B of int * bool | C of int 
 
 let function_equal_test = try ((fun x -> x + 1) = (fun x -> x + 2)) with
                          | Invalid_argument "equal: functional value" -> true
                          | _ -> false
-
+                        
 let suites = ref Mt.[
     __LOC__ , (fun _ -> Eq(true, None < Some 1)); 
     "option2", (fun _ -> Eq(true, Some 1 < Some 2));

jscomp/test/caml_format_test.ml

@@ -1,4 +1,4 @@
-
+[@@@warning "-107"]
 let of_string = 
   [| (0, "0"); (3, "03"); (-3, "-03"); (-63, "-0x3f"); (-31, "-0x1f");
      (47, "0X2f"); (11, "0O13"); (8, "0o10"); (3, "0b11"); (1, "0b01");

jscomp/test/class3_test.ml

@@ -181,7 +181,7 @@ let () = eq __LOC__ hhh 35
 class point_again3 x =
     object
       inherit restricted_point x as super
-      method move = super#move
+      method! move = super#move
     end;;
 
 

jscomp/test/class5_test.ml

@@ -19,7 +19,7 @@ class printable_colored_point y c =
       val c = c
       method color = c
       inherit printable_point y as super
-      method print =
+      method! print =
          "(" ^
         super#print ^
          ", " ^