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

use strictures 1;
use Test::More skip_all => 'TODO test';

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