[catagits/HTML-Zoom.git] / t / balance.t

use strictures 1;
use Test::More;
use HTML::Zoom;

my $z = HTML::Zoom->from_html(q{<html>
  <body>
    <div class="outer">
      <div class="inner"><span /></div>
    </div>
  </body>
</html>});

is(
  $z->select('.outer')
    ->collect_content({
       filter => sub { $_->select('.inner')->replace_content('bar!') },
       passthrough => 1
      })
    ->to_html,
  q{<html>
  <body>
    <div class="outer">
      <div class="inner">bar!</div>
    </div>
  </body>
</html>},
  "filter within collect works ok"
);

done_testing;
Commit	Line	Data
12bfb3b7	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;