Run_command (flexmasa.Flexmasa.Test_command_line.Run

val or_hard_fail : 
  ?lwt_run:
    ((Internal_pervasives.unit, [ `Die of Internal_pervasives.int ])
       Internal_pervasives.Attached_result.t
       Lwt.t ->
      (Internal_pervasives.unit, [ `Die of Internal_pervasives.int ])
        Internal_pervasives.Attached_result.t) ->
  < application_name : Internal_pervasives.string ; console : Console.t.. > ->
  (Internal_pervasives.unit ->
    (Internal_pervasives.unit, 'a) Internal_pervasives.Asynchronous_result.t) ->
  pp_error:
    (Flexmasa.Internal_pervasives.Format.formatter ->
      'a ->
      Internal_pervasives.unit) ->
  Internal_pervasives.unit

val make : 
  pp_error:
    (Stdlib.Format.formatter -> [>  ] as 'errors -> Internal_pervasives.unit) ->
  (< application_name : Internal_pervasives.string
   ; console : Console.t.. >
   * (Internal_pervasives.unit ->
   (Internal_pervasives.unit, 'errors)
     Internal_pervasives.Asynchronous_result.t))
    Cmdliner.Term.t ->
  Cmdliner.Term.info ->
  Internal_pervasives.unit Cmdliner.Term.t * Cmdliner.Term.info