Module Pa_ounit

val drop_tests : bool Pervasives.ref

val libname : unit -> string

val syntax_printer : TODO: a

val string_of_expr : Camlp4.PreCast.Syntax.Ast.expr -> string

val short_desc_of_expr : max_len:int -> Camlp4.PreCast.Syntax.Ast.expr -> string

val descr : Camlp4.PreCast.Ast.loc -> Camlp4.PreCast.Syntax.Ast.expr option -> string option -> (Camlp4.PreCast.Ast.expr * Camlp4.PreCast.Ast.expr * Camlp4.PreCast.Ast.expr * Camlp4.PreCast.Ast.expr * Camlp4.PreCast.Ast.expr)

val apply_to_descr : string -> Camlp4.PreCast.Ast.loc -> Camlp4.PreCast.Syntax.Ast.expr option -> string option -> Camlp4.PreCast.Ast.expr -> Camlp4.PreCast.Ast.str_item