[catagits/HTML-Zoom.git] / t / bugs / void_element.t

#!/usr/bin/perl

use strict;
use warnings;
use Test::More;
use HTML::Zoom;
use Test::Fatal;

foreach my $void (qw/ area base br col command embed hr 
  img input keygen link meta param source wbr/) {
  my $tmpla = <<END;
<body>
  <div class="main">
    <$void class="void" src="moo">
  </div>
  <div class="main2">
    <$void class="void" src="moo">
  </div>
</body>
END
  my $ra;
  is(
    exception { 
      $ra = HTML::Zoom->from_html( $tmpla )
               ->select('.main')->replace_content('foo')->to_html;
    },
    undef,
    "Zoom didn't die for $void"
  );
  #like( $ra, qr^<div class="main">foo</div>^ );
}

done_testing;
Commit	Line	Data
a5dc5af1	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;