sig
  val expect :
    Expect.t ->
    ?fmatches:(string -> 'a option) list ->
    ([< `Contains of string
      | `Eof
      | `Exact of string
      | `Fun of string -> bool
      | `Prefix of string
      | `Regexp of Str.regexp
      | `Suffix of string
      | `Timeout ] *
     'a)
    list -> 'a -> 'a
end