Source file `helpers_async_intf.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
open! Core
open! Async

module type Path = sig
  type t

  val of_string : string -> t
  val arg_type : t Command.Arg_type.t
end

module type Helpers_async = sig
  (** Tests autocompletion of file paths using the given arg type. *)
  val test_arg_type
    :  (module Path with type t = 'a)
    -> expect_output:(unit -> string)
    -> unit Deferred.t
end