type protocol_backend = protocol_backendval create_for_test_mode :
backend:protocol_backend ->
conn_type:Conn_type.t ->
my_principal:Cross_realm_principal_name.t ->
peer_principal:Cross_realm_principal_name.t ->
tval backend : t -> protocol_backendval auth_context :
t ->
[ `Test_mode | `Prod of Krb_internal_public.Std.Auth_context.t ]val conn_type : t -> Conn_type.tval my_principal : t -> Principal.Name.tval peer_principal : t -> Principal.Name.tval protocol_version : t -> [ `Test_mode | `Versioned of int ]val can_forward_creds : t -> boolval make_krb_cred :
t ->
forwardable:bool ->
Krb_internal_public.Std.Auth_context.Krb_cred.t Async.Deferred.Or_error.tval read_krb_cred :
t ->
Krb_internal_public.Std.Auth_context.Krb_cred.t ->
Krb_internal_public.Std.Cred_cache.t Async.Deferred.Or_error.tmodule Cross_realm : sig ... endval reader : t -> Async.Reader.tval writer : t -> Async.Writer.t