[catagits/HTML-Zoom.git] / t / parser_weirdness.t

use strictures 1;
use HTML::Zoom;
use Test::More;

my $html = <<EOHTML;
<body>
  <p><br/></p>
  <p><br /></p>
</body>
EOHTML

HTML::Zoom->from_html($html)
          ->select('body')
          ->collect_content({
              into => \my @body
            })
          ->run;

is(HTML::Zoom->from_events(\@body)->to_html, <<EOHTML,

  <p><br/></p>
  <p><br /></p>
EOHTML
  'Parses cuddled in place close ok');

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