sig
  module type Selector =
    sig
      type selector
      type value
      val eval :
        Selector.Selector.selector -> Selector.Selector.value -> bool
    end
  module Date_selector :
    sig
      type t =
          GT of Core.Std.Date.t
        | LT of Core.Std.Date.t
        | Between of Core.Std.Date.t * Core.Std.Date.t
        | On of Core.Std.Date.t
      type selector = t
      type value = Core.Std.Date.t
      val eval : selector -> value -> bool
      val t_of_sexp : Sexplib.Sexp.t -> Selector.Date_selector.t
    end
  module String_selector :
    sig
      module Regexp :
        sig
          type t
          val of_regexp : string -> Selector.String_selector.Regexp.t
          val matches : Selector.String_selector.Regexp.t -> string -> bool
          val to_string : Selector.String_selector.Regexp.t -> string
          val to_regexp : Selector.String_selector.Regexp.t -> Pcre.regexp
          val t_of_sexp : Sexplib.Sexp.t -> Selector.String_selector.Regexp.t
          val sexp_of_t : Selector.String_selector.Regexp.t -> Sexplib.Sexp.t
        end
      type t =
          Equal of string list
        | Matches of Selector.String_selector.Regexp.t list
        | Mixed of
            [ `Literal of string
            | `Regexp of Selector.String_selector.Regexp.t ] list
      type selector = t
      type value = Core.Std.String.t
      val eval : selector -> value -> bool
      val t_of_sexp : Sexplib.Sexp.t -> Selector.String_selector.t
    end
  module String_list_selector :
    sig
      type t = string list
      type selector = t
      type value = string
      val eval : selector -> value -> bool
      val t_of_sexp : Sexplib.Sexp.t -> Selector.String_list_selector.t
      val sexp_of_t : Selector.String_list_selector.t -> Sexplib.Sexp.t
    end
  val ounit_tests : unit -> OUnit.test
end