t/bugs/void_element.t

   1 use strictures 1;
   2 use Test::More skip_all => 'TODO test';
   3 use HTML::Zoom;
   4 use Test::Fatal;
   5
   6 foreach my $void (qw/ area base br col command embed hr
   7   img input keygen link meta param source wbr/) {
   8   my $tmpla = <<END;
   9 <body>
  10   <div class="main">
  11     <$void class="void" src="moo">
  12   </div>
  13   <div class="main2">
  14     <$void class="void" src="moo">
  15   </div>
  16 </body>
  17 END
  18   my $ra;
  19   is(
  20     exception {
  21       $ra = HTML::Zoom->from_html( $tmpla )
  22                ->select('.main')->replace_content('foo')->to_html;
  23     },
  24     undef,
  25     "Zoom didn't die for $void"
  26   );
  27   #like( $ra, qr^<div class="main">foo</div>^ );
  28 }
  29
  30 done_testing;