Source file `alcotest_lwt_intf.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
module type V1 = sig
  include Alcotest_engine.V1.Cli.S with type return = unit Lwt.t

  val test_case :
    string ->
    Alcotest.speed_level ->
    (Lwt_switch.t -> 'a -> unit Lwt.t) ->
    'a test_case

  val test_case_sync :
    string -> Alcotest.speed_level -> ('a -> unit) -> 'a test_case
end

module type Alcotest_lwt = sig
  include V1

  (** {1 Versioned APIs} *)

  module V1 : V1
  (** An alias of the above API that provides a stability guarantees over major
      version changes. *)
end