--- a/test/instrument/apply/special.t 2022-02-02 07:03:54.000000000 -0700 +++ b/test/instrument/apply/special.t 2022-02-08 16:37:16.423128075 -0700 @@ -97,7 +97,6 @@ Subexpressions are still instrumented. > let _ = (:=) (ref (print_endline "foo")) (print_endline "bar") > EOF let _ = ref (___bisect_post_visit___ 0 (print_endline "foo")) - let _ = !(ref (___bisect_post_visit___ 1 (print_endline "foo"))) let _ = @@ -310,5 +309,4 @@ Subexpressions are still instrumented. "bar") let _ = ignore (___bisect_post_visit___ 3 (print_endline "foo")) - let _ = Obj.magic (___bisect_post_visit___ 4 (print_endline "foo")) --- a/test/instrument/attribute.t 2022-02-02 07:03:54.000000000 -0700 +++ b/test/instrument/attribute.t 2022-02-08 16:37:16.424128075 -0700 @@ -78,5 +78,4 @@ Non-coverage attributes are preserved un [@@@foo print_endline "bar"] let _ = () [@@foo print_endline "bar"] - let _ = () [@foo print_endline "bar"] --- a/test/instrument/class/class.t 2022-02-02 07:03:54.000000000 -0700 +++ b/test/instrument/class/class.t 2022-02-08 16:37:16.424128075 -0700 @@ -22,9 +22,7 @@ Parameters are preserved. > end > EOF class foo_1 () = object end - class foo_2 ~l:_ = object end - class foo_3 ?l:_ () = object end --- a/test/instrument/class/instvar.t 2022-02-02 07:03:54.000000000 -0700 +++ b/test/instrument/class/instvar.t 2022-02-08 16:37:16.424128075 -0700 @@ -25,6 +25,7 @@ Pexp_override traversed. > val x = () > method foo = {< x = print_endline "foo" >} > end + > EOF let _ = object val x = () --- a/test/instrument/value.t 2022-02-02 07:03:54.000000000 -0700 +++ b/test/instrument/value.t 2022-02-08 16:37:16.424128075 -0700 @@ -72,7 +72,6 @@ No instrumentation is inserted into expr > let _ = Failure (String.concat "" []) > EOF let _ = Failure "foo" - let _ = Failure (___bisect_post_visit___ 0 (String.concat "" [])) @@ -87,7 +86,6 @@ No instrumentation is inserted into expr > let _ = `Foo (print_endline "foo") > EOF let _ = `Foo "bar" - let _ = `Foo (___bisect_post_visit___ 0 (print_endline "foo")) @@ -96,7 +94,6 @@ No instrumentation is inserted into expr > let _ = {contents = print_endline "foo"} > EOF let _ = { contents = 0 } - let _ = { contents = ___bisect_post_visit___ 0 (print_endline "foo") } @@ -171,7 +168,6 @@ No instrumentation is inserted into expr > let _ = fun () -> (print_endline "foo" : unit) > EOF let _ = (0 : int) - let _ = (___bisect_post_visit___ 0 (print_endline "foo") : unit) let _ = @@ -193,7 +189,6 @@ No instrumentation is inserted into expr `Foo let _ = (___bisect_post_visit___ 1 (f ()) :> [ `Foo | `Bar ]) - let _ = fun () -> (f () :> [ `Foo | `Bar ])