diff --git a/test/agent/src/bindings/account.h b/test/agent/src/bindings/account.h index b9a26004a10b1e922a4737345c97038017c17ee4..83627ef27e76175632a638721f7d9a5b7971dac0 100644 --- a/test/agent/src/bindings/account.h +++ b/test/agent/src/bindings/account.h @@ -125,6 +125,30 @@ subscribe_buddy_binding(SCM accountID_str, SCM peer_uri_str, SCM flag_bool) return SCM_UNDEFINED; } +static SCM +add_contact_binding(SCM accountID_str, SCM uri_str) +{ + LOG_BINDING(); + + DRing::addContact(from_guile(accountID_str), + from_guile(uri_str)); + + return SCM_UNDEFINED; +} + +static SCM +remove_contact_binding(SCM accountID_str, SCM uri_str, SCM ban_optional_bool) +{ + LOG_BINDING(); + + DRing::removeContact(from_guile(accountID_str), + from_guile(uri_str), + from_guile(ban_optional_bool)); + + return SCM_UNDEFINED; +} + + static void install_account_primitives(void *) { @@ -133,6 +157,8 @@ install_account_primitives(void *) define_primitive("send-register", 2, 0, 0, (void*) send_register_binding); define_primitive("account->archive", 2, 1, 0, (void*) export_to_file_binding); define_primitive("add", 1, 1, 0, (void*) add_account_binding); + define_primitive("add-contact", 2, 0, 0, (void*) add_contact_binding); + define_primitive("remove-contact", 2, 1, 0, (void*) remove_contact_binding); define_primitive("accept-trust-request", 2, 0, 0, (void*) accept_trust_request_binding); define_primitive("send-trust-request", 2, 1, 0, (void*) send_trust_request_binding); define_primitive("get-contacts", 1, 0, 0, (void*) get_contacts_binding);