package async_extended
Legend:
Library
Module
Module type
Parameter
Class
Class type

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