Added test to demonstrate bug

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

new file mode 100644 (file)

index 0000000..1e814d8
--- /dev/null
+++ b/t/bugs/repeat_replace_on_empty_tag.t
@@ -0,0 +1,40 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use HTML::Zoom;
+
+my $tmpla = <<END;
+<body>
+  <div class="main"></div>
+</body>
+END
+
+
+my $tmplb = <<END;
+<body>
+  <div class="main" />
+</body>
+END
+
+my $ra = HTML::Zoom->from_html( $tmpla )->select('.main')->repeat( [
+    sub{
+        $_->select('div')->replace_content('foo');
+    }
+])->to_html;
+
+like( $ra, qr^<div class="main">foo</div>^ );
+
+
+my $rb = HTML::Zoom->from_html( $tmplb )->select('.main')->repeat( [
+    sub{
+        $_->select('div')->replace_content('foo');
+    }
+])->to_html;
+
+like( $rb, qr^<div class="main">foo</div>^);
+
+done_testing;