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;