forked from enlightenment/efl
51 lines
1.1 KiB
C
51 lines
1.1 KiB
C
#ifdef HAVE_CONFIG_H
|
|
# include "elementary_config.h"
|
|
#endif
|
|
|
|
#define ELM_INTERFACE_ATSPI_ACCESSIBLE_PROTECTED
|
|
#include <Elementary.h>
|
|
#include "elm_suite.h"
|
|
|
|
|
|
START_TEST (elm_atspi_role_get)
|
|
{
|
|
Evas_Object *win, *popup;
|
|
Elm_Atspi_Role role;
|
|
|
|
elm_init(1, NULL);
|
|
win = elm_win_add(NULL, "popup", ELM_WIN_BASIC);
|
|
|
|
popup = elm_popup_add(win);
|
|
role = elm_interface_atspi_accessible_role_get(popup);
|
|
|
|
ck_assert(role == ELM_ATSPI_ROLE_NOTIFICATION);
|
|
|
|
elm_shutdown();
|
|
}
|
|
END_TEST
|
|
|
|
START_TEST (elm_object_part_access_object_get)
|
|
{
|
|
Evas_Object *win, *popup, *access;
|
|
|
|
elm_init(1, NULL);
|
|
elm_config_access_set(EINA_TRUE);
|
|
win = elm_win_add(NULL, "popup", ELM_WIN_BASIC);
|
|
|
|
popup = elm_popup_add(win);
|
|
elm_object_part_text_set(popup, "title,text", "Title");
|
|
evas_object_show(popup);
|
|
|
|
access = elm_object_part_access_object_get(popup, "access.title");
|
|
ck_assert(access != NULL);
|
|
|
|
elm_shutdown();
|
|
}
|
|
END_TEST
|
|
|
|
void elm_test_popup(TCase *tc)
|
|
{
|
|
tcase_add_test(tc, elm_atspi_role_get);
|
|
tcase_add_test(tc, elm_object_part_access_object_get);
|
|
}
|