projects
/
catagits/HTML-Zoom.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add support for [attr|="value"] selector (prefix selector)
[catagits/HTML-Zoom.git]
/
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;