Async_protocol.ConnectionSourceval 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 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.t