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

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

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

$tree->iter2(
	# default wrapper_ld ok
	wrapper_data => [
		[ Programmer => 'one who likes Perl and Seamstress' ],
		[ DBA        => 'one who does business as' ],
		[ Admin      => 'one who plays Tetris all day' ]
	],
	wrapper_proc => sub {
		my ($container) = @_;

		# only keep the last 2 dts and dds
		my @content_list = $container->content_list;
		$container->splice_content(0, @content_list - 2);
	},
	# default item_ld is k00l
	# default item_data is phrEsh
	# default item_proc will do w0rk
	splice       => sub {
		my ($container, @item_elems) = @_;
		$container->unshift_content(@item_elems);
	},

	debug => $ENV{TEST_VERBOSE},
);

isxml $tree, 't/html/iter2.exp', 'iter2';
Commit	Line	Data
aa016126 MG	1	#!/usr/bin/perl
aa016126 MG	2	use t::lib tests => 1;
67e78ff2	3
aa016126	4	my $tree = mktree 't/html/iter2.html';
67e78ff2	5
67e78ff2	6	$tree->iter2(
aa016126 MG	7	# default wrapper_ld ok
	8	wrapper_data => [
	9	[ Programmer => 'one who likes Perl and Seamstress' ],
	10	[ DBA => 'one who does business as' ],
	11	[ Admin => 'one who plays Tetris all day' ]
	12	],
	13	wrapper_proc => sub {
	14	my ($container) = @_;
	15
	16	# only keep the last 2 dts and dds
	17	my @content_list = $container->content_list;
	18	$container->splice_content(0, @content_list - 2);
	19	},
	20	# default item_ld is k00l
	21	# default item_data is phrEsh
	22	# default item_proc will do w0rk
	23	splice => sub {
	24	my ($container, @item_elems) = @_;
	25	$container->unshift_content(@item_elems);
	26	},
	27
	28	debug => $ENV{TEST_VERBOSE},
	29	);
	30
	31	isxml $tree, 't/html/iter2.exp', 'iter2';