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

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></p>');
Commit	Line	Data
23ba49c7	1	use HTML::Zoom;
	2	use Test::More tests => 1;
	3
	4	my $zoom = HTML::Zoom->from_html('<p>Hello my name is <span id="name" /></p>');
	5	my $html = $zoom->select('#name')->replace_content('Foo foo')->to_html;
a88c1c57	6	is($html, '<p>Hello my name is <span id="name">Foo foo</span></p>');