1 # This might look like shell script, but it's actually -*- perl -*-
7 use Test::More qw(no_plan);
10 use HTML::TreeBuilder;
11 use HTML::Element::Library;
15 my $root = 't/html/unroll_select';
17 my $tree = HTML::TreeBuilder->new_from_file("$root.html");
22 select_label => 'clan_list',
23 option_value => sub { my $row = shift; $row->{clan_id} },
24 option_content => sub { my $row = shift; $row->{clan_name} },
25 option_selected => sub { my $row = shift; $row->{selected} },
26 data => SelectData->load_data,
27 data_iter => sub { my $data = shift; shift @$data }
30 my $generated_html = ptree($tree, "$root.gen");
32 is ($generated_html, File::Slurp::read_file("$root.exp"),
33 "HTML for non-alternating table");