Added failing tests

[catagits/HTML-Zoom.git] / t / todo-span.t

diff --git a/t/todo-span.t b/t/todo-span.t
new file mode 100644 (file)
index 0000000..af164c0
--- /dev/null
+++ b/t/todo-span.t
@@ -0,0 +1,6 @@
+use HTML::Zoom;
+use Test::More tests => 1;
+
+my $zoom = HTML::Zoom->from_html('<p>Hello my name is <span id="name" /></p>');
+my $html = $zoom->select('#name')->replace_content('Foo foo')->to_html;
+is($html, '<p>Hello my name is <span id="#name">Foo foo</span>');