[catagits/HTML-Zoom.git] / t / todo-repeat.t

use strict;
use HTML::Zoom;
use Test::More skip_all => "Totally doesn't work yet";

my $z = HTML::Zoom->from_html(<<HTML);
<html>
<body>
<div id="foo"><p/></div>
</body>
</html>
HTML

my @list = qw(foo bar baz);
my $iter = sub { shift @list };

$z->select("#foo")->repeat(sub {
    my $e = $iter->() or return;
    return sub { $_->select("p")->replace_content($e) };
})->to_html;

ok 1;

done_testing;
Commit	Line	Data
23ba49c7	1	use strict;
23ba49c7	2	use HTML::Zoom;
039e108c	3	use Test::More skip_all => "Totally doesn't work yet";
23ba49c7	4
	5	my $z = HTML::Zoom->from_html(<<HTML);
	6	<html>
	7	<body>
	8	<div id="foo"><p/></div>
	9	</body>
	10	</html>
	11	HTML
	12
	13	my @list = qw(foo bar baz);
	14	my $iter = sub { shift @list };
	15
	16	$z->select("#foo")->repeat(sub {
	17	my $e = $iter->() or return;
	18	return sub { $_->select("p")->replace_content($e) };
	19	})->to_html;
	20
	21	ok 1;
	22
	23	done_testing;