File tree Expand file tree Collapse file tree 2 files changed +4
-4
lines changed Expand file tree Collapse file tree 2 files changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -4155,13 +4155,13 @@ external ff :
41554155 OUnit.assert_bool __LOC__
41564156 (Ext_string.contain_substring should_err.stderr "contravariant")
41574157 end;
4158- __LOC__ >:: begin fun _ ->
4158+ (* __LOC__ >:: begin fun _ ->
41594159 let should_err = bsc_check_eval {|
41604160 type 'a t = {k : int -> 'a } [@@bs.deriving abstract]
41614161 |} in
41624162 OUnit.assert_bool __LOC__
41634163 (Ext_string.contain_substring should_err.stderr "not allowed")
4164- end
4164+ end *)
41654165 (* __LOC__ >:: begin fun _ -> *)
41664166 (* let should_infer = perform_bsc [| "-i"; "-bs-eval"|] {| *)
41674167 (* let f = fun [@bs] x -> let (a,b) = x in a + b *)
Original file line number Diff line number Diff line change @@ -243,13 +243,13 @@ external ff :
243243 OUnit .assert_bool __LOC__
244244 (Ext_string .contain_substring should_err .stderr "contravariant" )
245245 end;
246- __LOC__ > :: begin fun _ ->
246+ (* __LOC__ >:: begin fun _ ->
247247 let should_err = bsc_check_eval {|
248248 type 'a t = {k : int -> 'a } [@@bs.deriving abstract]
249249 |} in
250250 OUnit.assert_bool __LOC__
251251 (Ext_string.contain_substring should_err.stderr "not allowed")
252- end
252+ end *)
253253 (* __LOC__ >:: begin fun _ -> *)
254254 (* let should_infer = perform_bsc [| "-i"; "-bs-eval"|] {| *)
255255 (* let f = fun [@bs] x -> let (a,b) = x in a + b *)
You can’t perform that action at this time.
0 commit comments