type msg = | Error of string| Warning of string
exception Test_failure of stringexception User_error of stringexception Internal_error of {loc : string;msg : string;
}val fail_test : string -> 'aval user_error : string -> 'aval internal_error : __LOC__:string -> string -> 'aval assert_false : __LOC__:string -> unit -> 'aval invalid_arg : __LOC__:string -> string -> 'a