Module Expect_test_common.Expectation

module Body : sig ... end
type 'a t = {
tag : string option;

(** Tag of the string payload *)

body : 'a Body.t;
extid_location : File.Location.t;

(** Location of the extension id ("expect" or "expect_exact") *)

body_location : File.Location.t;

(** Location of the string payload of the extension point *)

}
include sig ... end
val compare : ('a ‑> 'a ‑> int) ‑> 'a t ‑> 'a t ‑> int
val sexp_of_t : ('a ‑> Sexplib.Sexp.t) ‑> 'a t ‑> Sexplib.Sexp.t
module Raw : sig ... end
val map_pretty : 'a t ‑> f:('a ‑> 'b) ‑> 'b t