#ifdef HAVE_CONFIG_H
# include "elementary_config.h"
#endif

#define ELM_INTERNAL_API_ARGESFSDFEFC
#define ELM_INTERFACE_ATSPI_ACCESSIBLE_PROTECTED

#include <Elementary.h>
#include "elm_priv.h"
#include "elm_suite.h"

static Evas_Object *g_win, *g_btn, *g_bg;

void generate_app(void)
{
   g_win = elm_win_add(NULL, "Title", ELM_WIN_BASIC);
   evas_object_geometry_set(g_win, 100, 100, 100, 100);

   g_bg = elm_bg_add(g_win);

   g_btn = elm_button_add(g_win);

   evas_object_show(g_btn);
   evas_object_show(g_bg);
   evas_object_show(g_win);
}

START_TEST (elm_atspi_app_obj_name_get)
{
   elm_init(0, NULL);

   Eo* root = eo_add(ELM_ATSPI_APP_OBJECT_CLASS, NULL);

   ck_assert(root != NULL);

   const char *ret = NULL;

   elm_app_name_set("Test name");

   ret = elm_interface_atspi_accessible_name_get(root);

   ck_assert_str_eq(ret, "Test name");

   eo_unref(root);
   elm_shutdown();
}
END_TEST

START_TEST (elm_atspi_name_get)
{
   elm_init(0, NULL);
   generate_app();

   char *name;

   name = elm_interface_atspi_accessible_name_get(g_btn);

   if (name && name[0]) {
      ck_assert(0);
   }

   free(name);

   // Set name with additional text tags
   elm_object_text_set(g_btn, "Some<br>text");

   name = elm_interface_atspi_accessible_name_get(g_btn);

   // Accessible name should have cleared tags
   ck_assert(name != NULL);
   ck_assert_str_eq(name, "Some\ntext");

   free(name);
   elm_shutdown();
}
END_TEST

START_TEST (elm_atspi_name_set)
{
   elm_init(0, NULL);
   generate_app();

   char *name;

   elm_object_text_set(g_btn, "Other text");
   elm_interface_atspi_accessible_name_set(g_btn, "Test name");

   name = elm_interface_atspi_accessible_name_get(g_btn);

   ck_assert(name != NULL);
   ck_assert_str_eq(name, "Test name");

   free(name);

   elm_interface_atspi_accessible_name_set(g_btn, NULL);
   name = elm_interface_atspi_accessible_name_get(g_btn);

   ck_assert(name != NULL);
   ck_assert_str_eq(name, "Other text");

   free(name);

   elm_shutdown();
}
END_TEST

START_TEST (elm_atspi_role_get)
{
   elm_init(0, NULL);

   Eo* root = eo_add(ELM_ATSPI_APP_OBJECT_CLASS, NULL);

   Elm_Atspi_Role role;

   role = elm_interface_atspi_accessible_role_get(root);

   ck_assert(role == ELM_ATSPI_ROLE_APPLICATION);

   eo_unref(root);
   elm_shutdown();
}
END_TEST

START_TEST (elm_atspi_role_set)
{
   elm_init(0, NULL);
   generate_app();
   Elm_Atspi_Role role;

   elm_interface_atspi_accessible_role_set(g_btn, ELM_ATSPI_ROLE_ACCELERATOR_LABEL);
   role = elm_interface_atspi_accessible_role_get(g_btn);

   if (role != ELM_ATSPI_ROLE_ACCELERATOR_LABEL)
      ck_assert(0);

   elm_interface_atspi_accessible_role_set(g_btn, ELM_ATSPI_ROLE_ENTRY);
   role = elm_interface_atspi_accessible_role_get(g_btn);

   if (role != ELM_ATSPI_ROLE_ENTRY)
      ck_assert(0);

   elm_shutdown();
}
END_TEST



START_TEST (elm_atspi_role_name_get)
{
   elm_init(0, NULL);

   Eo* root = eo_add(ELM_ATSPI_APP_OBJECT_CLASS, NULL);

   const char *ret = NULL;

   ret = elm_interface_atspi_accessible_role_name_get(root);

   ck_assert(ret != NULL);

   eo_unref(root);
   elm_shutdown();
}
END_TEST

START_TEST (elm_atspi_localized_role_name_get)
{
   elm_init(0, NULL);

   Eo* root = eo_add(ELM_ATSPI_APP_OBJECT_CLASS, NULL);

   const char *ret = NULL;

   ret = elm_interface_atspi_accessible_localized_role_name_get(root);

   ck_assert(ret != NULL);

   eo_unref(root);
   elm_shutdown();
}
END_TEST

START_TEST (elm_atspi_description_set)
{
   elm_init(0, NULL);

   Eo* root = eo_add(ELM_ATSPI_APP_OBJECT_CLASS, NULL);

   const char *ret = NULL;

   const char *desc = "Test description";

   ret = elm_interface_atspi_accessible_description_get(root);

   ck_assert(ret == NULL);

   elm_interface_atspi_accessible_description_set(root, desc);
   ret = elm_interface_atspi_accessible_description_get(root);

   ck_assert(ret != NULL);
   ck_assert_str_eq(ret, "Test description");

   elm_interface_atspi_accessible_description_set(root, NULL);
   ret = elm_interface_atspi_accessible_description_get(root);

   ck_assert(ret == NULL);

   eo_unref(root);
   elm_shutdown();
}
END_TEST

/* Test if initial description value is NULL */
START_TEST (elm_atspi_description_get)
{
   elm_init(0, NULL);
   generate_app();

   const char *descr;
   descr = elm_interface_atspi_accessible_description_get(g_bg);

   ck_assert(descr == NULL);

   elm_shutdown();
}
END_TEST

START_TEST (elm_atspi_children_and_parent)
{
   elm_init(0, NULL);

   generate_app();
   Eo* root = eo_add(ELM_ATSPI_APP_OBJECT_CLASS, NULL);

   Eina_List *child_list = NULL;

   child_list = elm_interface_atspi_accessible_children_get(root);

   //bg_child_list = elm_interface_atspi_accessible_children_get(eina_list_nth(child_list, 0));

   ck_assert(eina_list_count(child_list) == 1);

   Eo *win = NULL;

   win = eina_list_nth(child_list, 0);

   ck_assert(win != NULL);
   ck_assert(win == g_win);

   eo_unref(root);
   elm_shutdown();
}
END_TEST

START_TEST (elm_atspi_children_and_parent2)
{
   elm_init(0, NULL);

   generate_app();
   Eo* root = eo_add(ELM_ATSPI_APP_OBJECT_CLASS, NULL);

   Eo *win = NULL;

   Eina_List *root_children;
   root_children = elm_interface_atspi_accessible_children_get(root);
   win = eina_list_nth(root_children, 0);

   Eina_List *win_children;
   win_children = elm_interface_atspi_accessible_children_get(win);

   ck_assert(eina_list_count(win_children) == 1);

   Eo *btn = NULL;

   btn = eina_list_nth(win_children, 0);
   ck_assert(btn != NULL);
   ck_assert(btn == g_btn);

   eo_unref(root);
   elm_shutdown();
}
END_TEST

/* Initial value of translation domain should be NULL */
START_TEST (elm_atspi_translation_domain_get)
{
   elm_init(0, NULL);
   generate_app();

   const char *domain;

   domain = elm_interface_atspi_accessible_translation_domain_get(g_btn);

   ck_assert(domain == NULL);

   elm_shutdown();
}
END_TEST

START_TEST (elm_atspi_translation_domain_set)
{
   elm_init(0, NULL);
   generate_app();

   const char *domain;

   elm_interface_atspi_accessible_translation_domain_set(g_btn, "Test translation_domain");
   domain = elm_interface_atspi_accessible_translation_domain_get(g_btn);

   ck_assert(domain != NULL);
   ck_assert_str_eq(domain, "Test translation_domain");

   elm_interface_atspi_accessible_translation_domain_set(g_btn, NULL);
   domain = elm_interface_atspi_accessible_translation_domain_get(g_btn);

   ck_assert(domain == NULL);

   elm_shutdown();
}
END_TEST

START_TEST (elm_atspi_relationship_append)
{
   elm_init(0, NULL);
   generate_app();

   Elm_Atspi_Relation_Set set;
   Elm_Atspi_Relation *rel, *rel_to, *rel_from;
   Eina_List *l;

   elm_interface_atspi_accessible_relationship_append(g_btn, ELM_ATSPI_RELATION_FLOWS_TO, g_bg);
   elm_interface_atspi_accessible_relationship_append(g_btn, ELM_ATSPI_RELATION_FLOWS_FROM, g_win);
   set = elm_interface_atspi_accessible_relation_set_get(g_btn);

   ck_assert(set != NULL);
   ck_assert(eina_list_count(set) >= 2);

   rel_to = rel_from = NULL;
   EINA_LIST_FOREACH(set, l, rel)
   {
      if (rel->type == ELM_ATSPI_RELATION_FLOWS_TO)
        rel_to = rel;
      if (rel->type == ELM_ATSPI_RELATION_FLOWS_FROM)
        rel_from = rel;
   }

   ck_assert(rel_to != NULL);
   ck_assert(eina_list_data_find(rel_to->objects, g_bg) != NULL);

   ck_assert(rel_from != NULL);
   ck_assert(eina_list_data_find(rel_from->objects, g_win) != NULL);

   elm_atspi_relation_set_free(set);

   /* Check if append do not procude duplicated relations */
   elm_interface_atspi_accessible_relationship_append(g_btn, ELM_ATSPI_RELATION_FLOWS_TO, g_bg);
   elm_interface_atspi_accessible_relationship_append(g_btn, ELM_ATSPI_RELATION_FLOWS_FROM, g_win);
   set = elm_interface_atspi_accessible_relation_set_get(g_btn);

   rel_to = rel_from = NULL;
   EINA_LIST_FOREACH(set, l, rel)
   {
      if (rel->type == ELM_ATSPI_RELATION_FLOWS_TO)
        rel_to = rel;
      if (rel->type == ELM_ATSPI_RELATION_FLOWS_FROM)
        rel_from = rel;
   }

   ck_assert(rel_to != NULL);
   ck_assert(rel_to->objects != NULL);
   rel_to->objects = eina_list_remove(rel_to->objects, g_bg);
   ck_assert(eina_list_data_find(rel_to->objects, g_bg) == NULL);

   ck_assert(rel_from != NULL);
   ck_assert(rel_from->objects != NULL);
   rel_from->objects = eina_list_remove(rel_from->objects, g_win);
   ck_assert(eina_list_data_find(rel_from->objects, g_win) == NULL);

   elm_atspi_relation_set_free(set);

   elm_shutdown();
}
END_TEST

START_TEST (elm_atspi_relationship_remove)
{
   elm_init(0, NULL);
   generate_app();

   Elm_Atspi_Relation_Set set;
   Elm_Atspi_Relation *rel, *rel_to, *rel_from;
   Eina_List *l;

   /* Test if removal of single relationship works */
   elm_interface_atspi_accessible_relationship_append(g_btn, ELM_ATSPI_RELATION_FLOWS_TO, g_bg);
   elm_interface_atspi_accessible_relationship_append(g_btn, ELM_ATSPI_RELATION_FLOWS_FROM, g_win);
   elm_interface_atspi_accessible_relationship_remove(g_btn, ELM_ATSPI_RELATION_FLOWS_TO, g_bg);
   set = elm_interface_atspi_accessible_relation_set_get(g_btn);

   ck_assert(set != NULL);
   ck_assert(eina_list_count(set) >= 1);

   rel_to = rel_from = NULL;
   EINA_LIST_FOREACH(set, l, rel)
   {
      if (rel->type == ELM_ATSPI_RELATION_FLOWS_TO)
        rel_to = rel;
      if (rel->type == ELM_ATSPI_RELATION_FLOWS_FROM)
        rel_from = rel;
   }

   if (rel_to) ck_assert(eina_list_data_find(rel_to->objects, g_bg) == NULL);
   ck_assert(rel_from != NULL);
   ck_assert(eina_list_data_find(rel_from->objects, g_win) != NULL);

   elm_atspi_relation_set_free(set);

   /* Test if removal of type relationship works */
   elm_interface_atspi_accessible_relationship_append(g_btn, ELM_ATSPI_RELATION_FLOWS_TO, g_bg);
   elm_interface_atspi_accessible_relationship_append(g_btn, ELM_ATSPI_RELATION_FLOWS_TO, g_win);
   elm_interface_atspi_accessible_relationship_remove(g_btn, ELM_ATSPI_RELATION_FLOWS_TO, NULL);
   set = elm_interface_atspi_accessible_relation_set_get(g_btn);

   rel_to = rel_from = NULL;
   EINA_LIST_FOREACH(set, l, rel)
   {
      if (rel->type == ELM_ATSPI_RELATION_FLOWS_TO)
        rel_to = rel;
      if (rel->type == ELM_ATSPI_RELATION_FLOWS_FROM)
        rel_from = rel;
   }

   ck_assert(rel_to == NULL);
   ck_assert(rel_from != NULL);
   ck_assert(eina_list_data_find(rel_from->objects, g_win) != NULL);

   elm_atspi_relation_set_free(set);

   /* Test if relationship is implicity removed when object is deleted */
   elm_interface_atspi_accessible_relationship_append(g_btn, ELM_ATSPI_RELATION_FLOWS_TO, g_bg);
   elm_interface_atspi_accessible_relationship_append(g_btn, ELM_ATSPI_RELATION_FLOWS_FROM, g_bg);
   eo_del(g_bg);
   set = elm_interface_atspi_accessible_relation_set_get(g_btn);

   rel_to = rel_from = NULL;
   EINA_LIST_FOREACH(set, l, rel)
   {
      if (rel->type == ELM_ATSPI_RELATION_FLOWS_TO)
        rel_to = rel;
      if (rel->type == ELM_ATSPI_RELATION_FLOWS_FROM)
        rel_from = rel;
   }

   if (rel_to) ck_assert(eina_list_data_find(rel_to->objects, g_bg) == NULL);
   if (rel_from) ck_assert(eina_list_data_find(rel_from->objects, g_bg) == NULL);

   elm_atspi_relation_set_free(set);
   elm_shutdown();
}
END_TEST

START_TEST (elm_atspi_relationships_clear)
{
   Elm_Atspi_Relation_Set set;
   Elm_Atspi_Relation *rel;
   Eina_List *l;

   elm_init(0, NULL);
   generate_app();

   elm_interface_atspi_accessible_relationship_append(g_btn, ELM_ATSPI_RELATION_FLOWS_TO, g_bg);
   elm_interface_atspi_accessible_relationship_append(g_btn, ELM_ATSPI_RELATION_FLOWS_FROM, g_bg);
   elm_interface_atspi_accessible_relationship_append(g_btn, ELM_ATSPI_RELATION_FLOWS_TO, g_win);
   elm_interface_atspi_accessible_relationship_append(g_btn, ELM_ATSPI_RELATION_FLOWS_FROM, g_win);

   elm_interface_atspi_accessible_relationships_clear(g_btn);

   set = elm_interface_atspi_accessible_relation_set_get(g_btn);
   EINA_LIST_FOREACH(set, l, rel)
   {
      ck_assert(!((rel->type == ELM_ATSPI_RELATION_FLOWS_TO) && eina_list_data_find(rel->objects, g_bg)));
      ck_assert(!((rel->type == ELM_ATSPI_RELATION_FLOWS_FROM) && eina_list_data_find(rel->objects, g_bg)));
      ck_assert(!((rel->type == ELM_ATSPI_RELATION_FLOWS_TO) && eina_list_data_find(rel->objects, g_win)));
      ck_assert(!((rel->type == ELM_ATSPI_RELATION_FLOWS_FROM) && eina_list_data_find(rel->objects, g_win)));
   }

   elm_atspi_relation_set_free(set);
   elm_shutdown();
}
END_TEST

void elm_test_atspi(TCase *tc)
{
   tcase_add_test(tc, elm_atspi_app_obj_name_get);
   tcase_add_test(tc, elm_atspi_name_get);
   tcase_add_test(tc, elm_atspi_name_set);
   tcase_add_test(tc, elm_atspi_role_get);
   tcase_add_test(tc, elm_atspi_role_set);
   tcase_add_test(tc, elm_atspi_role_name_get);
   tcase_add_test(tc, elm_atspi_localized_role_name_get);
   tcase_add_test(tc, elm_atspi_description_set);
   tcase_add_test(tc, elm_atspi_description_get);
   tcase_add_test(tc, elm_atspi_children_and_parent);
   tcase_add_test(tc, elm_atspi_children_and_parent2);
   tcase_add_test(tc, elm_atspi_translation_domain_get);
   tcase_add_test(tc, elm_atspi_translation_domain_set);
   tcase_add_test(tc, elm_atspi_relationship_append);
   tcase_add_test(tc, elm_atspi_relationship_remove);
   tcase_add_test(tc, elm_atspi_relationships_clear);
}