adapt test cases

Author: bobzhang

jscomp/ounit_tests/ounit_cmd_tests.ml

@@ -148,7 +148,7 @@ external ff :
       type t
       external mk : int -> (_ [@bs.as {json| { x : 3 } |json}]) ->  t = "mk" [@@bs.val]
       |} in
-      OUnit.assert_bool __LOC__ (Ext_string.contain_substring should_err.stderr "Invalid json literal")
+      OUnit.assert_bool __LOC__ (Ext_string.is_empty should_err.stderr)
     end
     ;
     __LOC__ >:: begin fun _ ->

jscomp/test/bs_splice_partial.js

@@ -37,9 +37,14 @@ function f(x) {
 
 }
 
+function testUndefined(param) {
+  return say(1, 2, [undefined,undefined]);
+}
+
 exports.test = test;
 exports.test_hi = test_hi;
 exports.test_hi__2 = test_hi__2;
 exports.test_cb = test_cb;
 exports.f = f;
+exports.testUndefined = testUndefined;
 /* No side effect */

jscomp/test/bs_splice_partial.ml

@@ -66,4 +66,9 @@ external v : u = "v" [@@bs.val]
 
 let f  x = 
     ignore @@ (v x [@bs]) 
-    
+
+external fff0 : int -> int -> (_[@bs.as {json|[undefined,undefined]|json}]) -> int = "say"    
+[@@bs.val]
+
+let testUndefined () = 
+    fff0 1 2