forked from enlightenment/efl
49 lines
969 B
C
49 lines
969 B
C
#ifdef HAVE_CONFIG_H
|
|
# include "elementary_config.h"
|
|
#endif
|
|
|
|
#define EFL_ACCESS_OBJECT_BETA
|
|
#include <Elementary.h>
|
|
#include "elm_suite.h"
|
|
|
|
EFL_START_TEST(elm_index_legacy_type_check)
|
|
{
|
|
Evas_Object *win, *index;
|
|
const char *type;
|
|
|
|
win = win_add(NULL, "index", ELM_WIN_BASIC);
|
|
|
|
index = elm_index_add(win);
|
|
|
|
type = elm_object_widget_type_get(index);
|
|
ck_assert(type != NULL);
|
|
ck_assert(!strcmp(type, "Elm_Index"));
|
|
|
|
type = evas_object_type_get(index);
|
|
ck_assert(type != NULL);
|
|
ck_assert(!strcmp(type, "elm_index"));
|
|
|
|
}
|
|
EFL_END_TEST
|
|
|
|
EFL_START_TEST(elm_atspi_role_get)
|
|
{
|
|
Evas_Object *win, *idx;
|
|
Efl_Access_Role role;
|
|
|
|
win = win_add(NULL, "index", ELM_WIN_BASIC);
|
|
|
|
idx = elm_index_add(win);
|
|
role = efl_access_object_role_get(idx);
|
|
|
|
ck_assert(role == EFL_ACCESS_ROLE_SCROLL_BAR);
|
|
|
|
}
|
|
EFL_END_TEST
|
|
|
|
void elm_test_index(TCase *tc)
|
|
{
|
|
tcase_add_test(tc, elm_index_legacy_type_check);
|
|
tcase_add_test(tc, elm_atspi_role_get);
|
|
}
|