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; |