Sourceval make_with_inject :
driver:
('input, 'result * ('action -> unit Ui_effect.t)) Bonsai_test__.Driver.t ->
sexp_of_result:('result -> Core.Sexp.t) ->
(module S
with type action = 'action
and type input = 'input) Sourceval make_string_with_inject :
driver:
('input, string * ('action -> unit Ui_effect.t)) Bonsai_test__.Driver.t ->
(module S
with type action = 'action
and type input = 'input)