Commit | Line | Data |
---|---|---|
abc91e12 | 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; |