/*
 * Asterisk -- An open source telephony toolkit.
 *
 * Copyright (C) 2015, CFWare, LLC
 *
 * Corey Farrell <git@cfware.com>
 *
 * See http://www.asterisk.org for more information about
 * the Asterisk project. Please do not directly contact
 * any of the maintainers of this project for assistance;
 * the project provides a web site, mailing lists and IRC
 * channels for your use.
 *
 * This program is free software, distributed under the terms of
 * the GNU General Public License Version 2. See the LICENSE file
 * at the top of the source tree.
 */

/*!
 * \file
 * \brief astobj2 weakproxy test module
 *
 * \author Corey Farrell <git@cfware.com>
 */

/*** MODULEINFO
	<depend>TEST_FRAMEWORK</depend>
	<support_level>core</support_level>
 ***/

#include "asterisk.h"

#include "asterisk/utils.h"
#include "asterisk/module.h"
#include "asterisk/test.h"
#include "asterisk/astobj2.h"

static int destructor_called;
static int weakproxydestroyed;

static void test_obj_destructor(void *obj)
{
	destructor_called++;
}

static void weakproxy_destructor(void *obj)
{
	weakproxydestroyed++;
}

static void test_obj_destroy_notify(void *obj, void *data)
{
	int *i = data;

	++*i;
}

struct my_weakproxy {
	AO2_WEAKPROXY();
	int f1;
};

AST_TEST_DEFINE(astobj2_weak1)
{
	void *obj1 = NULL;
	void *obj2 = NULL;
	void *obj3 = NULL;
	void *strong1 = NULL;
	struct my_weakproxy *weakref1 = NULL;
	struct my_weakproxy *weakref2 = NULL;
	int notify0_called = 0;
	int notify1_called = 0;
	int notify2_called = 0;
	int notify3_called = 0;

	switch (cmd) {
	case TEST_INIT:
		info->name = "astobj2_weak1";
		info->category = "/main/astobj2/";
		info->summary = "Test ao2 weak objects";
		info->description = "Test ao2 weak objects.";
		return AST_TEST_NOT_RUN;
	case TEST_EXECUTE:
		break;
	}

	destructor_called = weakproxydestroyed = 0;
	obj1 = ao2_t_alloc(0, test_obj_destructor, "obj1");
	if (!obj1) {
		return AST_TEST_FAIL;
	}

	weakref1 = ao2_t_weakproxy_alloc(sizeof(*weakref1), weakproxy_destructor, "weakref1");
	if (!weakref1) {
		ast_test_status_update(test, "Failed to allocate weakref1.\n");
		goto fail_cleanup;
	}
	weakref1->f1 = 5315;

	if (ao2_weakproxy_subscribe(weakref1, test_obj_destroy_notify, &notify0_called, 0)) {
		ast_test_status_update(test, "Failed to subscribe to weakref1.\n");
		goto fail_cleanup;
	}
	if (!notify0_called) {
		ast_test_status_update(test, "Subscribe failed to immediately run callback for empty weakproxy.\n");
		goto fail_cleanup;
	}

	if (ao2_t_weakproxy_set_object(weakref1, obj1, 0, "set weakref1 to obj1")) {
		ast_test_status_update(test, "Failed to set obj1 on weakref1.\n");
		goto fail_cleanup;
	}

	if (ao2_weakproxy_subscribe(weakref1, test_obj_destroy_notify, &notify1_called, 0)) {
		ast_test_status_update(test, "Failed to add a subscription to weakref1.\n");
		goto fail_cleanup;
	}

	weakref2 = ao2_t_get_weakproxy(obj1, "get weakref2 from obj1");
	if (weakref1 != weakref2) {
		ast_test_status_update(test, "weakref1 != weakref2.\n");
		goto fail_cleanup;
	}

	if (ao2_weakproxy_subscribe(weakref2, test_obj_destroy_notify, &notify2_called, 0)) {
		ast_test_status_update(test, "Failed to add a subscription to weakref2.\n");
		goto fail_cleanup;
	}

	if (ao2_weakproxy_subscribe(weakref2, test_obj_destroy_notify, &notify2_called, 0)) {
		ast_test_status_update(test, "Failed to add a duplicate subscription to weakref2.\n");
		goto fail_cleanup;
	}

	if (ao2_weakproxy_subscribe(weakref2, test_obj_destroy_notify, &notify2_called, 0)) {
		ast_test_status_update(test, "Failed to add a second duplicate subscription to weakref2.\n");
		goto fail_cleanup;
	}

	if (ao2_weakproxy_unsubscribe(weakref2, test_obj_destroy_notify, &notify2_called, 0) != 1) {
		ast_test_status_update(test, "Failed to remove a subscription to weakref2.\n");
		goto fail_cleanup;
	}

	ao2_t_cleanup(weakref1, "weakref1");
	ao2_t_cleanup(weakref2, "weakref2");

	weakref2 = ao2_t_get_weakproxy(obj1, "get weakref2 from obj1");
	if (weakref1 != weakref2) {
		weakref1 = NULL;
		ast_test_status_update(test, "weakref1 != weakref2.\n");
		goto fail_cleanup;
	}
	weakref1 = NULL;

	obj2 = ao2_t_alloc(0, NULL, "obj2");
	if (obj2) {
		int ret = ao2_t_weakproxy_set_object(weakref2, obj2, 0, "set weakref2 to obj2");

		ao2_ref(obj2, -1);
		if (!ret) {
			ast_test_status_update(test, "Set obj2 to weakref2 when it already had an object.\n");
			goto fail_cleanup;
		}
	}

	if (ao2_weakproxy_subscribe(weakref2, test_obj_destroy_notify, &notify3_called, 0)) {
		ast_test_status_update(test, "Failed to add a subscription to weakref2.\n");
		goto fail_cleanup;
	}

	if (ao2_weakproxy_subscribe(weakref2, test_obj_destroy_notify, &notify3_called, 0)) {
		ast_test_status_update(test, "Failed to add a duplicate subscription to weakref2.\n");
		goto fail_cleanup;
	}

	if (ao2_weakproxy_unsubscribe(weakref2, test_obj_destroy_notify, &notify3_called, OBJ_MULTIPLE) != 2) {
		ast_test_status_update(test, "Failed to remove the correct number of subscriptions to weakref2.\n");
		goto fail_cleanup;
	}

	if (destructor_called || notify1_called || notify2_called || notify3_called) {
		ast_test_status_update(test, "Destructor or notifications called early.\n");
		goto fail_cleanup;
	}

	strong1 = ao2_t_weakproxy_get_object(weakref2, 0, "get strong1 from weakref2");
	ao2_t_cleanup(strong1, "strong1");

	if (obj1 != strong1) {
		ast_test_status_update(test, "obj1 != strong1.\n");
		goto fail_cleanup;
	}

	if (destructor_called || notify1_called || notify2_called || notify3_called) {
		ast_test_status_update(test, "Destructor or notification called early.\n");
		goto fail_cleanup;
	}

	ao2_t_ref(obj1, -1, "obj1");
	obj1 = NULL;

	if (destructor_called != 1 || notify1_called != 1 || notify2_called != 2 || notify3_called != 0) {
		ast_test_status_update(test, "Destructor or notification not called the expected number of times.\n");
		goto fail_cleanup;
	}

	if (ao2_t_weakproxy_get_object(weakref2, 0, "impossible get of weakref2") != NULL) {
		ast_test_status_update(test, "Get object on weakref2 worked when it shouldn't\n");
		goto fail_cleanup;
	}

	obj3 = ao2_t_alloc(0, test_obj_destructor, "obj3");
	if (!obj3) {
		ast_test_status_update(test, "Failed to allocate obj3.\n");
		goto fail_cleanup;
	}

	if (ao2_t_weakproxy_set_object(weakref2, obj3, 0, "set weakref2 to obj3")) {
		ast_test_status_update(test, "Failed to set obj3 to weakref2.\n");
		goto fail_cleanup;
	}

	if (ao2_t_weakproxy_ref_object(obj3, +1, 0, "ao2_ref should never see this") != -2) {
		ast_test_status_update(test,
			"Expected -2 from ao2_t_weakproxy_ref_object against normal ao2 object.\n");
		goto fail_cleanup;
	}

	if (ao2_t_weakproxy_ref_object(weakref2, +1, 0, "weakref2 ref_object") != 2) {
		ast_test_status_update(test, "Expected 2 from weakref2 ref_object.\n");
		goto fail_cleanup;
	}

	if (ao2_t_ref(obj3, -1, "balance weakref2 ref_object") != 3) {
		ast_test_status_update(test, "Expected 3 from obj3 ao2_t_ref.\n");
		goto fail_cleanup;
	}

	ao2_ref(obj3, -1);

	if (ao2_weakproxy_ref_object(weakref2, +1, 0) != -1) {
		ast_test_status_update(test, "Expected -1 from weakref2 ref_object because obj3 is gone.\n");
		goto fail_cleanup;
	}

	ao2_t_ref(weakref2, -1, "weakref2");

	if (!weakproxydestroyed) {
		ast_test_status_update(test, "Destructor never called for weakproxy, likely a leak.\n");
		return AST_TEST_FAIL;
	}

	return AST_TEST_PASS;

fail_cleanup:
	ao2_cleanup(obj1);
	ao2_cleanup(obj3);
	ao2_cleanup(weakref1);
	ao2_cleanup(weakref2);

	return AST_TEST_FAIL;
}

struct strong_str {
	char *value;
};

struct weakproxy_str {
	AO2_WEAKPROXY();
	char value[0];
};

static struct strong_str *alloc_str(struct ao2_container *weakcontainer, const char *value)
{
	struct strong_str *strong = ao2_t_alloc(sizeof(*strong), NULL, value);
	struct weakproxy_str *weak = ao2_weakproxy_alloc(sizeof(*weak) + strlen(value) + 1, NULL);

	if (!weak || !strong) {
		goto error_return;
	}

	strcpy(weak->value, value); /*SAFE*/
	strong->value = weak->value;

	if (ao2_weakproxy_set_object(weak, strong, 0)) {
		goto error_return;
	}

	if (!ao2_link(weakcontainer, weak)) {
		goto error_return;
	}

	ao2_ref(weak, -1);
	return strong;

error_return:
	ao2_cleanup(weak);
	ao2_cleanup(strong);

	return NULL;
}

AO2_STRING_FIELD_HASH_FN(weakproxy_str, value);
AO2_STRING_FIELD_CMP_FN(weakproxy_str, value);
AO2_STRING_FIELD_SORT_FN(strong_str, value);

#define ITERATOR_CHECK_NEXT(iter, var, expected) \
	do { \
		var = ao2_iterator_next(iter); \
		ast_test_validate_cleanup(test, var == expected, ret, cleanup); \
		ao2_cleanup(var); \
	} while (0)

#define WEAKFIND_CHECK(c, key, var, expected) \
	do { \
		var = ao2_weakproxy_find(c, key, OBJ_SEARCH_KEY, ""); \
		ast_test_validate_cleanup(test, var == expected, ret, cleanup); \
		ao2_cleanup(var); \
	} while (0)

AST_TEST_DEFINE(astobj2_weak_container)
{
	int ret = AST_TEST_FAIL;

	struct strong_str *strong1 = NULL;
	struct strong_str *strong2 = NULL;
	struct strong_str *strong3 = NULL;

	struct strong_str *strong = NULL;

	struct ao2_container *weakcontainer = NULL;
	struct ao2_container *dupcontainer = NULL;

	struct ao2_iterator iter;

	switch (cmd) {
	case TEST_INIT:
		info->name = "astobj2_weak_container";
		info->category = "/main/astobj2/";
		info->summary = "Test ao2 weak containers";
		info->description = "Test ao2 weak containers.";
		return AST_TEST_NOT_RUN;
	case TEST_EXECUTE:
		break;
	}

	weakcontainer = ao2_container_alloc_hash(AO2_ALLOC_OPT_LOCK_MUTEX, 0, 7,
		weakproxy_str_hash_fn, NULL, weakproxy_str_cmp_fn);
	dupcontainer = ao2_container_alloc_list(AO2_ALLOC_OPT_LOCK_MUTEX, 0,
		strong_str_sort_fn, NULL);

	if (!weakcontainer || !dupcontainer) {
		goto cleanup;
	}

	strong1 = alloc_str(weakcontainer, "obj1");
	strong2 = alloc_str(weakcontainer, "obj2");
	strong3 = alloc_str(weakcontainer, "obj3");

	if (!strong1 || !strong2 || !strong3) {
		goto cleanup;
	}

	if (ao2_container_dup_weakproxy_objs(dupcontainer, weakcontainer, 0)) {
		goto cleanup;
	}

	iter = ao2_iterator_init(dupcontainer, 0);
	ITERATOR_CHECK_NEXT(&iter, strong, strong1);
	ITERATOR_CHECK_NEXT(&iter, strong, strong2);
	ITERATOR_CHECK_NEXT(&iter, strong, strong3);
	ITERATOR_CHECK_NEXT(&iter, strong, NULL);
	ao2_iterator_cleanup(&iter);

	ao2_callback(dupcontainer, OBJ_NODATA | OBJ_UNLINK | OBJ_MULTIPLE, NULL, NULL);

	WEAKFIND_CHECK(weakcontainer, "obj1", strong, strong1);
	WEAKFIND_CHECK(weakcontainer, "obj2", strong, strong2);
	WEAKFIND_CHECK(weakcontainer, "obj3", strong, strong3);
	WEAKFIND_CHECK(weakcontainer, "unknown", strong, NULL);

	/* This will orphan "obj2" in weakcontainer. */
	ao2_replace(strong2, NULL);

	if (ao2_container_dup_weakproxy_objs(dupcontainer, weakcontainer, 0)) {
		goto cleanup;
	}

	ast_test_validate_cleanup(test,
		ao2_container_count(weakcontainer) == ao2_container_count(dupcontainer) + 1,
		ret,
		cleanup);

	iter = ao2_iterator_init(dupcontainer, 0);
	ITERATOR_CHECK_NEXT(&iter, strong, strong1);
	ITERATOR_CHECK_NEXT(&iter, strong, strong3);
	ITERATOR_CHECK_NEXT(&iter, strong, NULL);
	ao2_iterator_cleanup(&iter);

	WEAKFIND_CHECK(weakcontainer, "obj1", strong, strong1);
	WEAKFIND_CHECK(weakcontainer, "obj2", strong, NULL);
	WEAKFIND_CHECK(weakcontainer, "obj3", strong, strong3);
	WEAKFIND_CHECK(weakcontainer, "unknown", strong, NULL);

	ret = AST_TEST_PASS;

cleanup:
	ao2_cleanup(strong1);
	ao2_cleanup(strong2);
	ao2_cleanup(strong3);

	ao2_cleanup(weakcontainer);
	ao2_cleanup(dupcontainer);

	ao2_cleanup(strong);

	return ret;
}

static int unload_module(void)
{
	AST_TEST_UNREGISTER(astobj2_weak1);
	AST_TEST_UNREGISTER(astobj2_weak_container);

	return 0;
}

static int load_module(void)
{
	AST_TEST_REGISTER(astobj2_weak1);
	AST_TEST_REGISTER(astobj2_weak_container);

	return AST_MODULE_LOAD_SUCCESS;
}

AST_MODULE_INFO_STANDARD(ASTERISK_GPL_KEY, "ASTOBJ2 Weak Reference Unit Tests");