t/todo-repeat.t

   1 use strict;
   2 use HTML::Zoom;
   3 use Test::More;
   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;