8 use lib $Bin, "$Bin/t";
15 parse_file_args => ["t/data/listitem.org"],
17 filter_elements => 'Org::Element::ListItem',
19 test_after_parse => sub {
21 my $elems = $args{elements};
24 is($elems->[$i]->parent->indent, " "x2, "item[$i]->list->indent");
25 is($elems->[$i]->bullet, "-", "item[$i]->bullet");
26 is($elems->[$i]->parent->type, "U", "item[$i]->list->type");
29 is($elems->[$i]->parent->type, "D", "item[$i]->list->type");
32 is($elems->[$i]->check_state, "X", "item[$i]->check_state");
33 # TODO: only check_states " ", "X", "-" are valid
36 is($elems->[$i]->parent->indent, " "x8, "item[$i]->list->indent");
37 is($elems->[$i]->bullet, "1.", "item[$i]->bullet");
38 is($elems->[$i]->parent->type, "O", "item[$i]->list->type");
40 # XXX the rest of 1..14