[html-element-library.git] / t / unroll_select.t

#!/usr/bin/perl
use t::lib tests => 1;
use lib 't';

use SelectData;

my $tree = mktree 't/html/unroll_select.html';

$tree->unroll_select(
	select_label     => 'clan_list',
	option_value     => sub { my $row = shift; $row->{clan_id} },
	option_content   => sub { my $row = shift; $row->{clan_name} },
	option_selected  => sub { my $row = shift; $row->{selected} },
	data             => SelectData->load_data,
	data_iter        => sub { my $data = shift; shift @$data });

isxml ($tree, 't/html/unroll_select.exp', 'unroll_select');
Commit	Line	Data
	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');