t/unroll_select.t

   1 #!/usr/bin/perl
   2 use t::lib tests => 1;
   3 use lib 't';
   4
   5 use SelectData;
   6
   7 my $tree = mktree 't/html/unroll_select.html';
   8
   9 $tree->unroll_select(
  10         select_label     => 'clan_list',
  11         option_value     => sub { my $row = shift; $row->{clan_id} },
  12         option_content   => sub { my $row = shift; $row->{clan_name} },
  13         option_selected  => sub { my $row = shift; $row->{selected} },
  14         data             => SelectData->load_data,
  15         data_iter        => sub { my $data = shift; shift @$data });
  16
  17 isxml ($tree, 't/html/unroll_select.exp', 'unroll_select');