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

use strictures 1;
use Test::More skip_all => 'TODO test';
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
75d99334	1	use strictures 1;
75d99334	2	use Test::More skip_all => 'TODO test';
a5dc5af1	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;