test for broken void elements

diff --git a/t/bugs/void_element.t b/t/bugs/void_element.t

new file mode 100644 (file)

index 0000000..1af789a
--- /dev/null
+++ b/t/bugs/void_element.t
@@ -0,0 +1,33 @@
+#!/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;