Something went wrong. Try again.
An adversarial testing framework for OCaml HTTP/1.1 clients and servers
Something went wrong. Try again.
1234567891011121314151617181920212223type 'control action = 'control Httnope_spec.Program.action = | Send of Spec_transport.t | Wait_ms of int | Control of 'control
type 'control t = 'control action Httnope_spec.Nonempty.t
let of_list_exn ~what actions = match Httnope_spec.Program.of_list actions with | Ok program -> program | Error message -> invalid_arg (what ^ ": " ^ message)
let to_list = Httnope_spec.Program.to_list
let compile ~send ~wait_ms ~control program = match Httnope_spec.Program.compile ~send:(fun transport -> Ok (send transport)) ~wait_ms ~control program with | Ok actions -> actions | Error message -> invalid_arg message