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

#!/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;
Commit	Line	Data
0e082da7	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More;
	7
	8	use HTML::Zoom;
	9
	10	my $tmpla = <<END;
	11	<body>
	12	<div class="main"></div>
	13	</body>
	14	END
	15
	16
	17	my $tmplb = <<END;
	18	<body>
	19	<div class="main" />
	20	</body>
	21	END
	22
	23	my $ra = HTML::Zoom->from_html( $tmpla )->select('.main')->repeat( [
	24	sub{
	25	$_->select('div')->replace_content('foo');
	26	}
	27	])->to_html;
	28
	29	like( $ra, qr^<div class="main">foo</div>^ );
	30
	31
	32	my $rb = HTML::Zoom->from_html( $tmplb )->select('.main')->repeat( [
	33	sub{
	34	$_->select('div')->replace_content('foo');
	35	}
	36	])->to_html;
	37
	38	like( $rb, qr^<div class="main">foo</div>^);
	39
	40	done_testing;