1 # This might look like shell script, but it's actually -*- perl -*-
5 use Test::More qw(no_plan);
8 use HTML::Element::Library;
11 my $root = 't/html/iter2';
13 my $tree = HTML::TreeBuilder->new_from_file("$root.html");
16 [ Programmer => 'one who likes Perl and Seamstress', ],
17 [ DBA => 'one who does business as', ],
18 [ Admin => 'one who plays Tetris all day' ]
22 # default wrapper_ld ok
23 wrapper_data => \@items,
27 # only keep the last 2 dts and dds
28 my @content_list = $container->content_list;
29 $container->splice_content(0, @content_list - 2);
31 # default item_ld is k00l
32 # default item_data is phrEsh
33 # default item_proc will do w0rk
35 my ($container, @item_elems) = @_;
36 $container->unshift_content(@item_elems);
43 is_xml ($tree->as_XML, scalar File::Slurp::read_file("$root.exp"), "XML for generated li");