t/bugs/void_element.t

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