8 use lib $Bin, "$Bin/t";
15 name => 'get_property()',
25 test_after_parse => sub {
27 my $doc = $args{result};
29 my $text = $doc->children->[2]->children->[0];
30 is(ref($text), "Org::Element::Text", "got text");
31 is($text->as_string, " some text\n", "got correct text");
32 is($text->get_property('x'), 2,
33 "text->get_property(x)");
34 is($text->get_property('y'), 1,
35 "text->get_property(y)");
36 ok(!$text->get_property('z'),
37 "text->get_property(z)");
39 # TODO: search_parent=1