convert ounit_tests/

Author: aspeddro

jscomp/ounit_tests/ounit_unicode_tests.ml

@@ -31,7 +31,7 @@ let (==*) a b =
    in 
    OUnit.assert_equal segments b 
 
-let varParen : Ast_utf8_string_interp.kind = Var (2,-1)   
+let var_paren : Ast_utf8_string_interp.kind = Var (2,-1)   
 let var : Ast_utf8_string_interp.kind = Var (1,0)
 let suites = 
     __FILE__
@@ -142,7 +142,7 @@ let suites =
           "你好$(this)" ==~
           [
             0,2,String, "你好";
-            2,9,varParen, "this"
+            2,9,var_paren, "this"
           ];
 
           "你好$this)" ==~
@@ -174,7 +174,7 @@ let suites =
           "你好 $(this_is_a_var)  x" ==~
           [
             0,3,String, "你好 ";
-            3,19,varParen, "this_is_a_var";
+            3,19,var_paren, "this_is_a_var";
             19,22, String, "  x"
           ]
         end
@@ -203,7 +203,7 @@ let suites =
         "\n$(x_this_is_cool) " ==*
         [
           0,0,1,0,String, "\\n";
-          1,0,1,17,varParen, "x_this_is_cool";
+          1,0,1,17,var_paren, "x_this_is_cool";
           1,17,1,18,String, " "
         ]
         end;

jscomp/ounit_tests/ounit_union_find_tests.ml

@@ -2,7 +2,7 @@ let ((>::),
      (>:::)) = OUnit.((>::),(>:::))
 
 let (=~) = OUnit.assert_equal
-let tinyUF = {|10
+let tiny_u_f = {|10
                4 3
                3 8
                6 5
@@ -15,7 +15,7 @@ let tinyUF = {|10
                1 0
                6 7
              |}
-let mediumUF = {|625
+let medium_u_f = {|625
                  528 503
                  548 523
                  389 414
@@ -919,8 +919,8 @@ let mediumUF = {|625
                |}
 
 
-let process_str tinyUF = 
-  match Ext_string.split tinyUF '\n' with 
+let process_str tiny_u_f = 
+  match Ext_string.split tiny_u_f '\n' with 
   | number :: rest ->
     let n = int_of_string number in
     let store = Union_find.init n in
@@ -970,10 +970,10 @@ let suites =
   >:::
   [
     __LOC__ >:: begin fun _ ->
-      OUnit.assert_equal (process_str tinyUF) 2
+      OUnit.assert_equal (process_str tiny_u_f) 2
     end;
     __LOC__ >:: begin fun _ ->
-      OUnit.assert_equal (process_str mediumUF) 3
+      OUnit.assert_equal (process_str medium_u_f) 3
     end;
 (*
    __LOC__ >:: begin fun _ ->