projects
/
catagits/HTML-Zoom.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
update docs
[catagits/HTML-Zoom.git]
/
t
/
parser_weirdness.t
1
use strictures 1;
2
use HTML::Zoom;
3
use Test::More;
4
5
my $html = <<EOHTML;
6
<body>
7
<p><br/></p>
8
<p><br /></p>
9
</body>
10
EOHTML
11
12
HTML::Zoom->from_html($html)
13
->select('body')
14
->collect_content({
15
into => \my @body
16
})
17
->run;
18
19
is(HTML::Zoom->from_events(\@body)->to_html, <<EOHTML,
20
21
<p><br/></p>
22
<p><br /></p>
23
EOHTML
24
'Parses cuddled in place close ok');
25
26
done_testing;