efl

1
#ifdef HAVE_CONFIG_H
2
# include "elementary_config.h"
3
#endif
4

5
#define EFL_ACCESS_OBJECT_BETA
6
#define EFL_ACCESS_OBJECT_PROTECTED
7
#include <Elementary.h>
8
#include "elm_suite.h"
9
#include "suite_helpers.h"
10

11
static Evas_Object *win, *genlist;
12
static Elm_Gen_Item_Class itc = { .version = ELM_GENLIST_ITEM_CLASS_VERSION };
13
static Eo *current;
14
static int counter;
15
static Efl_Access_Event_Children_Changed_Data ev_data;
16
Evas_Object *content;
17

18
static void
19
verify_item_iteration_api(Elm_Object_Item *parent)
20
{
21
   Elm_Object_Item *it, *first_child;
22
   Eina_List *children, *l;
23
   int i;
24

25
   /* verify first_item_get() */
26
   it = elm_genlist_first_item_get(genlist);
27
   ck_assert_ptr_eq(it, parent);
28
   ck_assert_ptr_eq(elm_object_item_data_get(it), NULL);
29
   ck_assert_ptr_eq(elm_genlist_item_prev_get(it), NULL);
30

31
   /* verify last_item_get() */
32
   it = elm_genlist_last_item_get(genlist);
33
   ck_assert_ptr_eq(elm_object_item_data_get(it), (void*)(uintptr_t)10);
34
   ck_assert_ptr_eq(elm_genlist_item_next_get(it), NULL);
35

36
   /* verify next item of parent item is it's first child */
37
   first_child = elm_genlist_item_next_get(parent);
38
   ck_assert_ptr_eq(elm_object_item_data_get(first_child), (void*)(uintptr_t)1);
39
   ck_assert_ptr_eq(elm_genlist_item_parent_get(first_child), parent);
40

41
   /* verify subitems_count() */
42
   ck_assert_int_eq(elm_genlist_item_subitems_count(parent), 10);
43
   ck_assert_int_eq(elm_genlist_item_subitems_count(first_child), 0);
44

45
   /* verify list consistency */
46
   it = first_child;
47
   for (i = 1; i <= 9; i++)
48
     {
49
        ck_assert_ptr_eq(elm_object_item_data_get(it), (void*)(uintptr_t)i);
50
        ck_assert_ptr_eq(elm_genlist_item_parent_get(it), parent);
51
        it = elm_genlist_item_next_get(it);
52
     }
53

54
   /* verify children list */
55
   i = 1;
56
   children = (Eina_List *)elm_genlist_item_subitems_get(parent);
57
   EINA_LIST_FOREACH(children, l, it)
58
     {
59
        ck_assert_ptr_eq(elm_object_item_data_get(it), (void*)(uintptr_t)i);
60
        ck_assert_ptr_eq(elm_genlist_item_parent_get(it), parent);
61
        i++;
62
     }
63

64
   /* verify item_expanded_depth_get() */
65
   ck_assert_int_eq(elm_genlist_item_expanded_depth_get(parent), 0);
66
   if (elm_genlist_item_type_get(parent) == ELM_GENLIST_ITEM_GROUP)
67
     ck_assert_int_eq(elm_genlist_item_expanded_depth_get(first_child), 0);
68
   else if (elm_genlist_item_type_get(parent) == ELM_GENLIST_ITEM_TREE)
69
     ck_assert_int_eq(elm_genlist_item_expanded_depth_get(first_child), 1);
70

71
   /* verify nth_item_get() and item_index_get() */
72
   for (i = 0; i <= 11; i++) // also test the not existant item 11
73
     {
74
        it = elm_genlist_nth_item_get(genlist, i);
75
        if (i == 11)
76
          DISABLE_ABORT_ON_CRITICAL_START;
77
          // item #11 do not exists
78
          ck_assert_int_eq(elm_genlist_item_index_get(it), -1);
79
          DISABLE_ABORT_ON_CRITICAL_END;
80
        else
81
          ck_assert_int_eq(elm_genlist_item_index_get(it), i + 1);
82

83
        if ((i == 0) || (i == 11))
84
          DISABLE_ABORT_ON_CRITICAL_START;
85
          // test first and item #11 (that do not exists)
86
          ck_assert_ptr_eq(elm_object_item_data_get(it), NULL);
87
          DISABLE_ABORT_ON_CRITICAL_END;
88
        else
89
          ck_assert_ptr_eq(elm_object_item_data_get(it), (void*)(uintptr_t)i);
90
     }
91
}
92

93
EFL_START_TEST(elm_genlist_test_item_iteration)
94
{
95
   Elm_Object_Item *parent;
96
   int i;
97

98
   win = win_add(NULL, "genlist", ELM_WIN_BASIC);
99

100
   genlist = elm_genlist_add(win);
101

102
   // perform test using a GROUP item
103
   parent = elm_genlist_item_append(genlist, &itc, NULL, NULL,
104
                                    ELM_GENLIST_ITEM_GROUP, NULL, NULL);
105
   for (i = 1; i <= 10; i++)
106
     elm_genlist_item_append(genlist, &itc, (void*)(uintptr_t)i, parent,
107
                             0, NULL, NULL);
108

109
   verify_item_iteration_api(parent);
110

111
   // repeat same test with a TREE item
112
   elm_genlist_clear(genlist);
113
   parent = elm_genlist_item_append(genlist, &itc, NULL, NULL,
114
                                    ELM_GENLIST_ITEM_TREE, NULL, NULL);
115
   for (i = 1; i <= 10; i++)
116
     elm_genlist_item_append(genlist, &itc, (void*)(uintptr_t)i, parent,
117
                             0, NULL, NULL);
118

119
   verify_item_iteration_api(parent);
120

121
}
122
EFL_END_TEST
123

124
static void
125
_genlist_item_content_test_realize(void *data EINA_UNUSED, Evas_Object *obj EINA_UNUSED, void *event_info EINA_UNUSED)
126
{
127
   ecore_main_loop_quit();
128
}
129

130
static Evas_Object *
131
_item_content_get(void *data EINA_UNUSED, Evas_Object *obj, const char *part EINA_UNUSED)
132
{
133
   Evas_Object *ic = elm_button_add(obj);
134
   return ic;
135
}
136

137
static char *
138
_item_text_get(void *data EINA_UNUSED, Evas_Object *obj EINA_UNUSED, const char *part)
139
{
140
   char buf[128];
141
   /* just some random-ish (not really) text */
142
   snprintf(buf, sizeof(buf), "%p", part);
143
   return strdup(buf);
144
}
145

146
EFL_START_TEST(elm_genlist_test_item_content)
147
{
148
   Elm_Genlist_Item_Class *gtc;
149
   Evas_Object *end, *parent;
150
   Elm_Object_Item *it;
151

152
   gtc = elm_genlist_item_class_new();
153
   gtc->item_style = "default";
154
   gtc->func.content_get = _item_content_get;
155
   gtc->func.state_get = NULL;
156
   gtc->func.del = NULL;
157

158
   win = win_add(NULL, "genlist", ELM_WIN_BASIC);
159

160
   genlist = elm_genlist_add(win);
161
   evas_object_smart_callback_add(genlist, "realized", _genlist_item_content_test_realize, NULL);
162

163
   it = elm_genlist_item_append(genlist, gtc, NULL, NULL,
164
                                ELM_GENLIST_ITEM_NONE, NULL, NULL);
165

166
   evas_object_resize(genlist, 100, 100);
167
   evas_object_resize(win, 150, 150);
168
   evas_object_show(genlist);
169
   evas_object_show(win);
170

171
   get_me_to_those_events(win);
172

173
   end = elm_object_item_part_content_get(it, "elm.swallow.end");
174
   parent = elm_object_parent_widget_get(end);
175
   ck_assert_ptr_eq(parent, genlist);
176

177
   elm_genlist_item_all_contents_unset(it, NULL);
178
   parent = elm_object_parent_widget_get(end);
179
   ck_assert_ptr_eq(parent, win);
180
}
181
EFL_END_TEST
182

183
EFL_START_TEST(elm_genlist_test_legacy_type_check)
184
{
185
   const char *type;
186

187
   win = win_add(NULL, "genlist", ELM_WIN_BASIC);
188

189
   genlist = elm_genlist_add(win);
190

191
   type = elm_object_widget_type_get(genlist);
192
   ck_assert(type != NULL);
193
   ck_assert(!strcmp(type, "Elm_Genlist"));
194

195
   type = evas_object_type_get(genlist);
196
   ck_assert(type != NULL);
197
   ck_assert(!strcmp(type, "elm_genlist"));
198

199
}
200
EFL_END_TEST
201

202
void test_init(void)
203
{
204
   elm_config_atspi_mode_set(EINA_TRUE);
205
   win = win_add(NULL, "genlist", ELM_WIN_BASIC);
206
   genlist = elm_genlist_add(win);
207
}
208

209
EFL_START_TEST(elm_genlist_test_atspi_role_get)
210
{
211
   test_init();
212

213
   Efl_Access_Role role;
214

215
   role = efl_access_object_role_get(genlist);
216

217
   ck_assert(role == EFL_ACCESS_ROLE_LIST);
218

219
}
220
EFL_END_TEST
221

222
EFL_START_TEST(elm_genlist_test_atspi_children_get1)
223
{
224
   test_init();
225
   Eina_List *children;
226
   Elm_Object_Item *it[3];
227

228
   children = efl_access_object_access_children_get(genlist);
229
   ck_assert(children == NULL);
230

231
   it[0] = elm_genlist_item_append(genlist, &itc, NULL, NULL, ELM_GENLIST_ITEM_NONE, NULL, NULL);
232
   it[1] = elm_genlist_item_append(genlist, &itc, NULL, NULL, ELM_GENLIST_ITEM_NONE, NULL, NULL);
233
   it[2] = elm_genlist_item_append(genlist, &itc, NULL, NULL, ELM_GENLIST_ITEM_NONE, NULL, NULL);
234

235
   children = efl_access_object_access_children_get(genlist);
236
   ck_assert(eina_list_count(children) == 3);
237
   ck_assert(eina_list_nth(children, 0) == it[0]);
238
   ck_assert(eina_list_nth(children, 1) == it[1]);
239
   ck_assert(eina_list_nth(children, 2) == it[2]);
240

241
   eina_list_free(children);
242

243
}
244
EFL_END_TEST
245

246
EFL_START_TEST(elm_genlist_test_atspi_children_get2)
247
{
248
   test_init();
249
   Eina_List *children;
250
   Elm_Object_Item *it[3];
251

252
   it[0] = elm_genlist_item_append(genlist, &itc, NULL, NULL, ELM_GENLIST_ITEM_NONE, NULL, NULL);
253
   it[1] = elm_genlist_item_prepend(genlist, &itc, NULL, NULL, ELM_GENLIST_ITEM_GROUP, NULL, NULL);
254
   it[2] = elm_genlist_item_append(genlist, &itc, NULL, NULL, ELM_GENLIST_ITEM_TREE, NULL, NULL);
255

256
   children = efl_access_object_access_children_get(genlist);
257
   ck_assert(eina_list_nth(children, 1) == it[0]);
258
   ck_assert(eina_list_nth(children, 0) == it[1]);
259
   ck_assert(eina_list_nth(children, 2) == it[2]);
260

261
}
262
EFL_END_TEST
263

264
static void
265
_children_changed_cb(void *data EINA_UNUSED, const Efl_Event *event)
266
{
267
   if (event->desc != EFL_ACCESS_OBJECT_EVENT_CHILDREN_CHANGED)
268
     return;
269

270
   ev_data = *(Efl_Access_Event_Children_Changed_Data*)event->info;
271
   current = event->object;
272
   counter++;
273
}
274

275
EFL_START_TEST(elm_genlist_test_atspi_children_events_add)
276
{
277
   test_init();
278

279
   current = NULL;
280
   counter = 0;
281

282
   Elm_Object_Item *it[3];
283

284
   efl_access_object_event_handler_add(_children_changed_cb, NULL);
285

286
   it[0] = elm_genlist_item_append(genlist, &itc, NULL, NULL, ELM_GENLIST_ITEM_NONE, NULL, NULL);
287
   ck_assert(genlist == current);
288
   ck_assert(counter == 1);
289
   ck_assert(ev_data.is_added == EINA_TRUE);
290
   ck_assert(ev_data.child == it[0]);
291

292
   it[1] = elm_genlist_item_prepend(genlist, &itc, it[0], NULL, ELM_GENLIST_ITEM_GROUP, NULL, NULL);
293
   ck_assert(genlist == current);
294
   ck_assert(counter == 2);
295
   ck_assert(ev_data.is_added == EINA_TRUE);
296
   ck_assert(ev_data.child == it[1]);
297

298
   it[2] = elm_genlist_item_append(genlist, &itc, NULL, NULL, ELM_GENLIST_ITEM_TREE, NULL, NULL);
299
   ck_assert(genlist == current);
300
   ck_assert(counter == 3);
301
   ck_assert(ev_data.is_added == EINA_TRUE);
302
   ck_assert(ev_data.child == it[2]);
303

304
}
305
EFL_END_TEST
306

307
EFL_START_TEST(elm_genlist_test_atspi_children_events_del1)
308
{
309
   test_init();
310

311
   current = NULL;
312
   counter = 0;
313

314
   Elm_Object_Item *it[3];
315

316
   it[0] = elm_genlist_item_append(genlist, &itc, NULL, NULL, ELM_GENLIST_ITEM_NONE, NULL, NULL);
317
   it[1] = elm_genlist_item_prepend(genlist, &itc, NULL, NULL, ELM_GENLIST_ITEM_NONE, NULL, NULL);
318
   it[2] = elm_genlist_item_append(genlist, &itc, NULL, NULL, ELM_GENLIST_ITEM_TREE, NULL, NULL);
319

320
   efl_access_object_event_handler_add(_children_changed_cb, NULL);
321

322
   elm_object_item_del(it[0]);
323
   ck_assert(genlist == current);
324
   ck_assert(counter == 1);
325
   ck_assert(ev_data.is_added == EINA_FALSE);
326
   ck_assert(ev_data.child == it[0]);
327

328
   elm_object_item_del(it[2]);
329
   ck_assert(genlist == current);
330
   ck_assert(counter == 2);
331
   ck_assert(ev_data.is_added == EINA_FALSE);
332
   ck_assert(ev_data.child == it[2]);
333

334
}
335
EFL_END_TEST
336

337
EFL_START_TEST(elm_genlist_test_atspi_children_events_del2)
338
{
339
   test_init();
340

341
   Elm_Object_Item *it;
342
   current = NULL;
343
   counter = 0;
344

345
   it = elm_genlist_item_append(genlist, &itc, NULL, NULL, ELM_GENLIST_ITEM_NONE, NULL, NULL);
346

347
   efl_access_object_event_handler_add(_children_changed_cb, NULL);
348
   elm_genlist_clear(genlist);
349

350
   ck_assert(genlist == current);
351
   ck_assert(counter == 1);
352
   ck_assert(ev_data.is_added == EINA_FALSE);
353
   ck_assert(ev_data.child == it);
354

355
}
356
EFL_END_TEST
357

358
static int it_del = 0;
359

360
static void
361
_gl_destroy()
362
{
363
   ck_assert_int_eq(it_del, 2);
364
}
365

366
static void
367
_it_destroy()
368
{
369
   it_del++;
370
}
371

372
static void
373
_it_del()
374
{
375
   it_del = 1;
376
}
377

378
EFL_START_TEST(elm_genlist_test_item_destroy)
379
{
380
   Elm_Object_Item *git;
381

382
   win = win_add(NULL, "genlist", ELM_WIN_BASIC);
383

384
   genlist = elm_genlist_add(win);
385
   efl_event_callback_add(genlist, EFL_EVENT_DESTRUCT, _gl_destroy, NULL);
386

387
   git = elm_genlist_item_append(genlist, &itc, NULL, NULL, 0, NULL, NULL);
388
   efl_event_callback_add(git, EFL_EVENT_DEL, _it_del, NULL);
389
   efl_event_callback_add(git, EFL_EVENT_DESTRUCT, _it_destroy, NULL);
390

391
}
392
EFL_END_TEST
393

394
#define NUM_TREE_ITEMS 10
395
#define GL_ITEM_SIZE_ISH 30
396

397
static Evas_Object *
398
genlist_tree_test_content_get(void *data EINA_UNUSED, Evas_Object *obj, const char *part)
399
{
400
   if (!strcmp(part, "elm.swallow.icon"))
401
     {
402
        Evas_Object *ic = elm_icon_add(obj);
403
        elm_image_file_set(ic, ELM_IMAGE_DATA_DIR "/images/logo_small.png", NULL);
404
        evas_object_size_hint_aspect_set(ic, EVAS_ASPECT_CONTROL_VERTICAL, 1, 1);
405
        evas_object_show(ic);
406
        return ic;
407
     }
408
   else if (!strcmp(part, "elm.swallow.end"))
409
     {
410
        Evas_Object *ck;
411
        ck = elm_check_add(obj);
412
        evas_object_propagate_events_set(ck, EINA_FALSE);
413
        evas_object_show(ck);
414
        return ck;
415
     }
416
   return NULL;
417
}
418

419
static void
420
_focus_set(void *data)
421
{
422
   elm_genlist_item_selected_set(data, 1);
423
   elm_object_item_focus_set(data, 1);
424
}
425

426
static void
427
genlist_tree_test_realize(void *data EINA_UNUSED, Evas_Object *obj EINA_UNUSED, void *event_info)
428
{
429
   evas_object_smart_callback_del(genlist, "realized", genlist_tree_test_realize);
430
   ecore_job_add(_focus_set, event_info);
431
   elm_object_item_signal_emit(event_info, "elm,action,expand,toggle", "elm");
432
}
433

434
static void
435
genlist_tree_test_realize2(void *data EINA_UNUSED, Evas_Object *obj EINA_UNUSED, void *event_info)
436
{
437
   static unsigned int count;
438

439
   if (!elm_genlist_item_parent_get(event_info)) return;
440
   if (++count != NUM_TREE_ITEMS) return;
441
   evas_object_smart_callback_del(genlist, "realized", genlist_tree_test_realize2);
442
   elm_object_item_signal_emit(elm_genlist_first_item_get(genlist), "elm,action,expand,toggle", "elm");
443
}
444

445
static void
446
genlist_tree_test_expand(void *data EINA_UNUSED, Evas_Object *obj EINA_UNUSED, void *event_info)
447
{
448
   Elm_Object_Item *glit = event_info;
449
   Evas_Object *gl = elm_object_item_widget_get(glit);
450
   int i = 0;
451

452
   evas_object_smart_callback_add(genlist, "realized", genlist_tree_test_realize2, NULL);
453
   for (i = 0; i < NUM_TREE_ITEMS; i++)
454
     {
455
        elm_genlist_item_append(gl, &itc,
456
                                NULL/* item data */,
457
                                glit/* parent */,
458
                                ELM_GENLIST_ITEM_TREE, NULL/* func */,
459
                                NULL/* func data */);
460
     }
461
}
462

463
static void
464
_do_quit()
465
{
466
   itc.func.content_get = NULL;
467
   ecore_main_loop_quit();
468
}
469

470
static void
471
genlist_tree_test_contract(void *data EINA_UNUSED, Evas_Object *obj EINA_UNUSED, void *event_info)
472
{
473
   Elm_Object_Item *glit = event_info;
474
   ck_assert_int_eq(elm_genlist_item_subitems_count(glit), NUM_TREE_ITEMS);
475
   elm_genlist_item_subitems_clear(glit);
476
   ecore_job_add(_do_quit, NULL);
477
}
478

479
static void
480
genlist_tree_test_expand_request(void *data EINA_UNUSED, Evas_Object *obj EINA_UNUSED, void *event_info)
481
{
482
   Elm_Object_Item *glit = event_info;
483
   elm_genlist_item_expanded_set(glit, EINA_TRUE);
484
}
485

486
static void
487
genlist_tree_test_contract_request(void *data EINA_UNUSED, Evas_Object *obj EINA_UNUSED, void *event_info)
488
{
489
   Elm_Object_Item *glit = event_info;
490
   elm_genlist_item_expanded_set(glit, EINA_FALSE);
491
}
492

493
EFL_START_TEST(elm_genlist_test_tree_expand)
494
{
495
   int i;
496
   win = win_add(NULL, "genlist", ELM_WIN_BASIC);
497

498
   itc.func.content_get = genlist_tree_test_content_get;
499

500
   genlist = elm_genlist_add(win);
501
   elm_genlist_mode_set(genlist, ELM_LIST_COMPRESS);
502
   elm_genlist_multi_select_set(genlist, EINA_TRUE);
503

504
   evas_object_smart_callback_add(genlist, "expand,request", genlist_tree_test_expand_request, NULL);
505
   evas_object_smart_callback_add(genlist, "contract,request", genlist_tree_test_contract_request, NULL);
506
   evas_object_smart_callback_add(genlist, "expanded", genlist_tree_test_expand, NULL);
507
   evas_object_smart_callback_add(genlist, "contracted", genlist_tree_test_contract, NULL);
508
   evas_object_smart_callback_add(genlist, "realized", genlist_tree_test_realize, NULL);
509

510
   evas_object_size_hint_align_set(genlist, EVAS_HINT_FILL, EVAS_HINT_FILL);
511
   evas_object_size_hint_weight_set(genlist, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
512
   evas_object_size_hint_weight_set(win, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
513
   elm_genlist_item_append(genlist, &itc,
514
                           NULL/* item data */, NULL/* parent */,
515
                           ELM_GENLIST_ITEM_TREE, NULL/* func */,
516
                           NULL/* func data */);
517
   for (i = 0; i < 30; i++)
518
     elm_genlist_item_append(genlist, &itc,
519
                             NULL/* item data */, NULL/* parent */,
520
                             0, NULL/* func */,
521
                             NULL/* func data */);
522

523
   evas_object_show(genlist);
524
   evas_object_resize(genlist, 100, 10 + GL_ITEM_SIZE_ISH * NUM_TREE_ITEMS);
525
   evas_object_show(win);
526
   evas_object_resize(win, 100, 10 + GL_ITEM_SIZE_ISH * NUM_TREE_ITEMS);
527

528
   ecore_main_loop_begin();
529
}
530
EFL_END_TEST
531

532
EFL_START_TEST(elm_genlist_test_focus_state)
533
{
534
   Elm_Object_Item *it;
535
   Evas_Object *btn;
536

537
   win = win_add_focused(NULL, "genlist", ELM_WIN_BASIC);
538

539
   evas_object_show(win);
540

541
   btn = elm_button_add(win);
542
   evas_object_show(btn);
543
   elm_object_focus_set(btn, EINA_TRUE);
544

545
   genlist = elm_genlist_add(win);
546

547
   it = elm_genlist_item_append(genlist, &itc, NULL, NULL,
548
                                ELM_GENLIST_ITEM_NONE, NULL, NULL);
549
   evas_object_show(genlist);
550

551
   elm_object_focus_set(genlist, EINA_TRUE);
552
   elm_object_item_focus_set(it, EINA_TRUE);
553
   ck_assert_ptr_ne(elm_object_focused_object_get(win), btn);
554
   ck_assert_ptr_eq(elm_object_focused_object_get(win), genlist);
555
   ck_assert_int_eq(elm_object_focus_get(btn), EINA_FALSE);
556
   ck_assert_int_eq(elm_object_focus_get(genlist), EINA_TRUE);
557

558
   elm_object_focus_set(genlist, EINA_FALSE);
559
   ck_assert_ptr_ne(elm_object_focused_object_get(win), genlist);
560
   ck_assert_ptr_eq(elm_object_focused_object_get(win), btn);
561
   ck_assert_int_eq(elm_object_focus_get(btn), EINA_TRUE);
562
   ck_assert_int_eq(elm_object_focus_get(genlist), EINA_FALSE);
563

564
   elm_object_focus_set(btn, EINA_TRUE);
565
   elm_object_focus_set(genlist, EINA_TRUE);
566
   elm_object_item_focus_set(it, EINA_TRUE);
567
   evas_object_hide(genlist);
568
   ck_assert_ptr_ne(elm_object_focused_object_get(win), genlist);
569
   ck_assert_ptr_eq(elm_object_focused_object_get(win), btn);
570
   ck_assert_int_eq(elm_object_focus_get(btn), EINA_TRUE);
571
   ck_assert_int_eq(elm_object_focus_get(genlist), EINA_FALSE);
572
}
573
EFL_END_TEST
574

575
/* keep in sync with elm_genlist.c value */
576
#define MAX_ITEMS_PER_BLOCK 32
577

578
EFL_START_TEST(elm_genlist_test_events)
579
{
580
   unsigned int i, called[10] = {0};
581
   Eina_Bool norender = EINA_FALSE;
582
   /* need focus for item focus tests */
583
   win = win_add_focused(NULL, "genlist", ELM_WIN_BASIC);
584

585
   itc.func.text_get = _item_text_get;
586

587
   genlist = elm_genlist_add(win);
588
   elm_genlist_mode_set(genlist, ELM_LIST_COMPRESS);
589

590
   for (i = 0; i < 2 * MAX_ITEMS_PER_BLOCK; i++)
591
     elm_genlist_item_append(genlist, &itc,
592
                             NULL/* item data */, NULL/* parent */,
593
                             0, NULL/* func */,
594
                             NULL/* func data */);
595

596
   /* show 10ish items */
597
   evas_object_resize(genlist, 200, 10 + GL_ITEM_SIZE_ISH * 10);
598
   evas_object_show(genlist);
599
   evas_object_show(win);
600
   evas_object_resize(win, 200, 10 + GL_ITEM_SIZE_ISH * 10);
601
   get_me_to_those_events(genlist);
602

603
/* add callbacks only for the name array passed,
604
 * verify that each callback is triggered based on event callback type
605
 * remove callbacks so they don't break successive testing
606
 * note: order is not tested or useful
607
 */
608
#define CB_TEST(namearray, ev_func, ...) \
609
   do { \
610
     const char **names = namearray; \
611
     memset(called, 0, sizeof(called)); \
612
     norender = EINA_FALSE; \
613
     for (i = 0; *names; i++, names++) \
614
       evas_object_smart_callback_add(genlist, *names, ev_func, &(called[i])); \
615
     __VA_ARGS__ \
616
     if (!norender) \
617
       get_me_to_those_events(genlist); \
618
     for (i = 0, names = namearray; *names; i++, names++) \
619
       { \
620
          evas_object_smart_callback_del_full(genlist, *names, ev_func, &(called[i])); \
621
          if (!called[i]) fprintf(stderr, "GENLIST EVENT TEST ERROR: \"%s\" failed to trigger as expected!\n", namearray[i]); \
622
          if (ev_func == event_callback_that_increments_an_int_when_called) \
623
            ck_assert_int_ge(called[i], 1); \
624
          else \
625
            ck_assert_int_eq(called[i], 1); \
626
       } \
627
   } while (0)
628
#define NAMEARRAY(...) \
629
  (const char*[]){__VA_ARGS__, NULL}
630

631
   /* first item: double click ->
632
    *   "activated" + "clicked,double" + "selected" + "highlighted" */
633
   CB_TEST(NAMEARRAY("activated", "clicked,double", "selected", "highlighted"),
634
     event_callback_single_call_int_data,
635
     click_object_at_flags(genlist, 5, 5, EVAS_BUTTON_DOUBLE_CLICK);
636
   );
637

638
   /* first item: right click ->
639
    *   "clicked,right" */
640
   CB_TEST(
641
      NAMEARRAY("clicked,right"),
642
      event_callback_single_call_int_data,
643
      Evas *e = evas_object_evas_get(genlist);
644
      norender = EINA_TRUE;
645
      evas_event_feed_mouse_move(e, 5, 5, 0, NULL);
646
      /* no util function for this since we never use right click */
647
      evas_event_feed_mouse_down(e, 3, 0, 0, NULL);
648
      evas_event_feed_mouse_up(e, 3, 0, 0, NULL);
649
   );
650
   /* some other item:
651
    * click ->
652
    *   "unselected" + "unhighlighted" + "item,unfocused" on first item
653
    *   "pressed" + "released" + "item,focused" on other item */
654
   CB_TEST(
655
      NAMEARRAY("unselected", "unhighlighted", "pressed", "released", "item,focused", "item,unfocused"),
656
      event_callback_single_call_int_data,
657
      /* click on some other random item to trigger different selection/highlight */
658
      click_object_at(genlist, 5, 50);
659
   );
660

661
   /* wheel ->
662
    *   "realized" on unrealized items
663
    *   "unrealized" on first item */
664
   CB_TEST(
665
      NAMEARRAY("realized", "unrealized"),
666
      event_callback_that_increments_an_int_when_called,
667
      /* disable animations to avoid having to wait an indeterminate amount of time for scrolling */
668
      elm_config_scroll_animation_disabled_set(EINA_TRUE);
669
      /* wheel to trigger realize/unrealize */
670
      wheel_object_at(genlist, 50, 50, 0, 1);
671
      /* re-enable animations before failure to avoid triggering cascading test failures */
672
      elm_config_scroll_animation_disabled_set(EINA_FALSE);
673
   );
674

675
   /* filter_set ->
676
    *   "filter,done"
677
    */
678
   CB_TEST(
679
      NAMEARRAY("filter,done"),
680
      event_callback_single_call_int_data,
681
      elm_genlist_filter_set(genlist, "2");
682
   );
683
   elm_genlist_filter_set(genlist, NULL);
684

685
   /* simple drag ->
686
    *   "swipe" + "drag,start,right" + "drag,stop"
687
    * also multiple "drag" events
688
    */
689
  evas_object_smart_callback_add(genlist, "drag", event_callback_that_increments_an_int_when_called, &called[5]);
690
   CB_TEST(
691
      NAMEARRAY("swipe", "drag,start,right", "drag,stop"),
692
      event_callback_single_call_int_data,
693
      click_object_at(genlist, 5, 50);
694
      drag_object(genlist, 5, 50, 150, 0, EINA_FALSE);
695
   );
696
  evas_object_smart_callback_del_full(genlist, "drag", event_callback_that_increments_an_int_when_called, &called[5]);
697
  /* there should be DRAG_OBJECT_NUM_MOVES - 1 "drag" events */
698
  ck_assert_int_eq(called[5], DRAG_OBJECT_NUM_MOVES - 1);
699

700
   /* continuous simple drags ->
701
    *   "drag,start,left", "drag,start,up", "drag,start,down"
702
    */
703
   evas_object_smart_callback_add(genlist, "drag,stop", event_callback_that_increments_an_int_when_called, &called[3]);
704
   CB_TEST(
705
      NAMEARRAY("drag,start,left", "drag,start,up", "drag,start,down"),
706
      event_callback_single_call_int_data,
707
      /* left */
708
      click_object_at(genlist, 155, 50);
709
      drag_object(genlist, 155, 50, -150, 0, EINA_FALSE);
710
      /* down */
711
      click_object_at(genlist, 5, 50);
712
      drag_object(genlist, 5, 50, 0, 100, EINA_FALSE);
713
      /* up */
714
      click_object_at(genlist, 5, 150);
715
      drag_object(genlist, 5, 150, 0, -100, EINA_FALSE);
716
   );
717
   evas_object_smart_callback_del_full(genlist, "drag", event_callback_that_increments_an_int_when_called, &called[3]);
718
   ck_assert_int_eq(called[3], DRAG_OBJECT_NUM_MOVES - 1);
719

720
   /* intensive drag down ->
721
    *   "longpressed" + "moved" + ("moved,after" || "moved,before")
722
    * also "index,update" on all affected items
723
    */
724
   evas_object_smart_callback_add(genlist, "index,update", event_callback_that_increments_an_int_when_called, &called[3]);
725
   /* exactly one of these will be called */
726
   evas_object_smart_callback_add(genlist, "moved,before", event_callback_single_call_int_data, &called[2]);
727
   evas_object_smart_callback_add(genlist, "moved,after", event_callback_single_call_int_data, &called[2]);
728
   CB_TEST(
729
      /* "moved,before" can only be triggered on the first item and is a bit finnicky/unreliable
730
       * to trigger in unit tests so it's being ignored for now
731
       */
732
      NAMEARRAY("longpressed", "moved"),
733
      event_callback_single_call_int_data,
734
      double lp = elm_genlist_longpress_timeout_get(genlist);
735
      elm_genlist_reorder_mode_set(genlist, EINA_TRUE);
736
      elm_genlist_longpress_timeout_set(genlist, 0);
737
      click_object_at(genlist, 5, 5);
738
      drag_object(genlist, 5, 5, 0, 90, EINA_TRUE);
739
      elm_genlist_reorder_mode_set(genlist, EINA_FALSE);
740
      elm_genlist_longpress_timeout_set(genlist, lp);
741
   );
742
   evas_object_smart_callback_del_full(genlist, "moved,before", event_callback_single_call_int_data, &called[2]);
743
   evas_object_smart_callback_del_full(genlist, "moved,after", event_callback_single_call_int_data, &called[2]);
744
   ck_assert_int_eq(called[2], 1);
745
   evas_object_smart_callback_del_full(genlist, "index,update", event_callback_that_increments_an_int_when_called, &called[3]);
746
   /* at minimum, 2 items should have been changed */
747
   ck_assert_int_ge(called[3], 2);
748
}
749
EFL_END_TEST
750

751
void elm_test_genlist(TCase *tc)
752
{
753
   tcase_add_test(tc, elm_genlist_test_legacy_type_check);
754
   tcase_add_test(tc, elm_genlist_test_item_destroy);
755
   tcase_add_test(tc, elm_genlist_test_item_iteration);
756
   tcase_add_test(tc, elm_genlist_test_item_content);
757
   tcase_add_test(tc, elm_genlist_test_atspi_role_get);
758
   tcase_add_test(tc, elm_genlist_test_atspi_children_get1);
759
   tcase_add_test(tc, elm_genlist_test_atspi_children_get2);
760
   tcase_add_test(tc, elm_genlist_test_atspi_children_events_add);
761
   tcase_add_test(tc, elm_genlist_test_atspi_children_events_del1);
762
   tcase_add_test(tc, elm_genlist_test_atspi_children_events_del2);
763

764
   tcase_add_test(tc, elm_genlist_test_focus_state);
765
   tcase_add_test(tc, elm_genlist_test_tree_expand);
766

767
   tcase_add_test(tc, elm_genlist_test_events);
768
}
769