--- 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 ])