view release on metacpan or  search on metacpan

t/18_siblingscdata.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More 0.98;

use XML::Minify qw(minify);

my $maxi = << "END";
<root> Not empty <![CDATA[ mytext ]]> <keepblanks> </keepblanks> <![CDATA[ mytext ]]> </root>
END

my $minikeepcdata = << "END"; 
<root> Not empty <![CDATA[ mytext ]]> <keepblanks> </keepblanks> <![CDATA[ mytext ]]> </root>
END

my $minidropcdata = << "END"; 
<root> Not empty  <keepblanks> </keepblanks></root>
END

chomp $maxi;
chomp $minikeepcdata;
chomp $minidropcdata;

is(minify($maxi, no_prolog => 1, keep_cdata => 1), $minikeepcdata, "Keep cdata, nothing can be done");
is(minify($maxi, no_prolog => 1, keep_cdata => 0), $minidropcdata, "Remove cdata therefore can clean some blanks");

done_testing;