Module OUnitRunner.GenericWorkerSource

Build worker based runner.

Sourcetype message_to_worker =
  1. | Exit
  2. | AckLock of bool
  3. | RunTest of OUnitTest.path
Sourceval string_of_message_to_worker : message_to_worker -> string
Sourcetype message_from_worker =
  1. | AckExit
  2. | Log of OUnitTest.log_event_t
  3. | Lock of int
  4. | Unlock of int
  5. | TestDone of OUnitTest.result_full * OUnitTest.result_list
Sourceval string_of_message_from_worker : message_from_worker -> string
Sourcemodule MapPath : sig ... end
Sourcetype ('a, 'b) channel = {
  1. send_data : 'a -> unit;
  2. receive_data : unit -> 'b;
  3. close : unit -> unit;
}
Sourceval wrap_channel : string -> ('a -> string) -> ('b -> string) -> ('b, 'a) channel -> ('b, 'a) channel
Sourceval main_worker_loop : yield:(unit -> 'a) -> shard_id:string -> worker_log_file:bool -> OUnitConf.conf -> worker_channel -> map_test_cases -> unit
Sourcetype 'a worker = {
  1. channel : (message_to_worker, message_from_worker) channel;
  2. close_worker : unit -> string option;
  3. select_fd : 'a;
  4. shard_id : string;
  5. is_running : unit -> bool;
}
Sourcetype 'a worker_creator = shard_id:string -> master_id:string -> worker_log_file:bool -> OUnitConf.conf -> map_test_cases -> 'a worker
Sourcetype 'a workers_waiting_selector = timeout:float -> 'a worker list -> 'a worker list