File tree 2 files changed +4
-4
lines changed
2 files changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -4155,13 +4155,13 @@ external ff :
4155
4155
OUnit.assert_bool __LOC__
4156
4156
(Ext_string.contain_substring should_err.stderr "contravariant")
4157
4157
end;
4158
- __LOC__ >:: begin fun _ ->
4158
+ (* __LOC__ >:: begin fun _ ->
4159
4159
let should_err = bsc_check_eval {|
4160
4160
type 'a t = {k : int -> 'a } [@@bs.deriving abstract]
4161
4161
|} in
4162
4162
OUnit.assert_bool __LOC__
4163
4163
(Ext_string.contain_substring should_err.stderr "not allowed")
4164
- end
4164
+ end *)
4165
4165
(* __LOC__ >:: begin fun _ -> *)
4166
4166
(* let should_infer = perform_bsc [| "-i"; "-bs-eval"|] {| *)
4167
4167
(* 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 :
243
243
OUnit .assert_bool __LOC__
244
244
(Ext_string .contain_substring should_err .stderr "contravariant" )
245
245
end;
246
- __LOC__ > :: begin fun _ ->
246
+ (* __LOC__ >:: begin fun _ ->
247
247
let should_err = bsc_check_eval {|
248
248
type 'a t = {k : int -> 'a } [@@bs.deriving abstract]
249
249
|} in
250
250
OUnit.assert_bool __LOC__
251
251
(Ext_string.contain_substring should_err.stderr "not allowed")
252
- end
252
+ end *)
253
253
(* __LOC__ >:: begin fun _ -> *)
254
254
(* let should_infer = perform_bsc [| "-i"; "-bs-eval"|] {| *)
255
255
(* let f = fun [@bs] x -> let (a,b) = x in a + b *)
You can’t perform that action at this time.
0 commit comments