X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fparser_weirdness.t;fp=t%2Fparser_weirdness.t;h=2abab01f31cc6c5ac8397daf1ca8d50aee7c68d1;hb=abc91e12ee2174db8068e3c9423c9a4afc651aba;hp=0000000000000000000000000000000000000000;hpb=3b699141cd75b2a07ff0512e2239e1a960901288;p=catagits%2FHTML-Zoom.git diff --git a/t/parser_weirdness.t b/t/parser_weirdness.t new file mode 100644 index 0000000..2abab01 --- /dev/null +++ b/t/parser_weirdness.t @@ -0,0 +1,26 @@ +use strictures 1; +use HTML::Zoom; +use Test::More; + +my $html = < +

+ +EOHTML + +HTML::Zoom->from_html($html) + ->select('body') + ->collect_content({ + into => \my @body + }) + ->run; + +is(HTML::Zoom->from_events(\@body)->to_html, <

+EOHTML + 'Parses cuddled in place close ok'); + +done_testing;