Module Async_extended.Simple_tcp_proxy

This is a simple tcp proxy that might be useful for simulating connection problems between clients and servers.

type t
val create : proxy_listen_port:int ‑> server_listen_port:int ‑> t Async.Deferred.t
val proxy_listen_port : t ‑> int
val close : t ‑> unit Async.Deferred.t
val stop_client_to_server : t ‑> unit
val stop_server_to_client : t ‑> unit
val allow_client_to_server : t ‑> unit
val allow_server_to_client : t ‑> unit