t/balance.t

   1 use strictures 1;
   2 use Test::More;
   3 use HTML::Zoom;
   4
   5 my $z = HTML::Zoom->from_html(q{<html>
   6   <body>
   7     <div class="outer">
   8       <div class="inner"><span /></div>
   9     </div>
  10   </body>
  11 </html>});
  12
  13 is(
  14   $z->select('.outer')
  15     ->collect_content({
  16        filter => sub { $_->select('.inner')->replace_content('bar!') },
  17        passthrough => 1
  18       })
  19     ->to_html,
  20   q{<html>
  21   <body>
  22     <div class="outer">
  23       <div class="inner">bar!</div>
  24     </div>
  25   </body>
  26 </html>},
  27   "filter within collect works ok"
  28 );
  29
  30 done_testing;