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

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

my $tree = mktree 't/html/iter.html';
my $li = $tree->look_down(class => 'store_items');
$tree->iter($li, qw/bread butter vodka/);
isxml $tree, 't/html/iter.exp', 'iter';
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/iter.html';
67e78ff2	5	my $li = $tree->look_down(class => 'store_items');
aa016126 MG	6	$tree->iter($li, qw/bread butter vodka/);
aa016126 MG	7	isxml $tree, 't/html/iter.exp', 'iter';