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