Lifter (ppx_expect.Ppx_expect.Lifter)

type filename = Expect_test_common.Std.File.Name.t

class virtual 'a lift_filename : object ... end

type location = Expect_test_common.Std.File.Location.t = {

filename : filename;

line_number : int;

line_start : int;

start_pos : int;

end_pos : int;

}

and 'a body = 'a Expect_test_common.Std.Expectation.Body.t =

| Exact of string

| Output

| Pretty of 'a

| Unreachable

and 'a expectation = 'a Expect_test_common.Std.Expectation.t = {

tag : string option;

body : 'a body;

extid_location : location;

body_location : location;

}

and raw = string expectation

class virtual +'b lift : object ... end