[html-element-library.git] / t / prune.t

#!/usr/bin/perl -T


use warnings;
use strict;

use Test::More;
use Test::XML;

BEGIN {
    use_ok('HTML::TreeBuilder');
    use_ok('HTML::Element::Library');
}


my $root = HTML::TreeBuilder->new();
my $html =<<'EOHTML';
<html>    
<head>
  <title></title>
</head>
<body>
  <div>There was man named Jed</div>
<div>He did not have a head</div>
<div>He lived beneath a sled</div>
<div>Now he's afraid of Fred...</div>
<div>
</div>
    </body>
</html>
EOHTML

$root->parse($html);
$root->delete_ignorable_whitespace;
$root->prune;

my $expected = '
<html>
<body>
<div>There was man named Jed</div><div>He did not have a head</div><div>He lived beneath a sled</div><div>Now he&#39;s afraid of Fred...</div> </body>   
</html>
';

#warn sprintf 'HTML:%s:HTML', $root->as_HTML;

is_xml($root->as_HTML, $expected, 'test pruning');


done_testing;
Commit	Line	Data
ce4e9192 TB	1	#!/usr/bin/perl -T
	2
	3
	4	use warnings;
	5	use strict;
	6
	7	use Test::More;
	8	use Test::XML;
	9
	10	BEGIN {
	11	use_ok('HTML::TreeBuilder');
70669dc1	12	use_ok('HTML::Element::Library');
ce4e9192 TB	13	}
	14
	15
	16
	17	my $root = HTML::TreeBuilder->new();
	18	my $html =<<'EOHTML';
	19	<html>
	20	<head>
	21	<title></title>
	22	</head>
	23	<body>
	24	<div>There was man named Jed</div>
	25	<div>He did not have a head</div>
	26	<div>He lived beneath a sled</div>
	27	<div>Now he's afraid of Fred...</div>
	28	<div>
	29	</div>
	30	</body>
	31	</html>
	32	EOHTML
	33
	34	$root->parse($html);
	35	$root->delete_ignorable_whitespace;
	36	$root->prune;
	37
	38	my $expected = '
	39	<html>
	40	<body>
	41	<div>There was man named Jed</div><div>He did not have a head</div><div>He lived beneath a sled</div><div>Now he's afraid of Fred...</div> </body>
	42	</html>
	43	';
	44
	45	#warn sprintf 'HTML:%s:HTML', $root->as_HTML;
	46
	47	is_xml($root->as_HTML, $expected, 'test pruning');
	48
	49
	50
	51	done_testing;