8 use lib $Bin, "$Bin/t";
15 name => 'radio target basic tests',
16 filter_elements => 'Org::Element::Link',
27 <<<target1>>> <<<target 2>>>
36 test_after_parse => sub {
38 my $doc = $args{result};
39 my $elems = $args{elements};
40 is($elems->[0]->link, "target1" , "link[0]");
41 is($elems->[1]->link, "target 2", "link[1]");
42 is($elems->[2]->link, "target1" , "link[2]");
44 ok( $elems->[0]->from_radio_target, "from_radio_target[0]");
45 ok( $elems->[1]->from_radio_target, "from_radio_target[1]");
46 ok( $elems->[2]->from_radio_target, "from_radio_target[2]");
47 ok(!$elems->[3]->from_radio_target, "from_radio_target[3]");