view release on metacpan or  search on metacpan

t/02-minify_utf8.t  view on Meta::CPAN

use utf8;

use v5.14;
use warnings;

use Test2::V0;

use Text::Minify::XS qw( minify_utf8 );

is minify_utf8("") => "", "empty";

is minify_utf8(" ") => "", "empty";

is minify_utf8("\t\t \n") => "", "empty";

is minify_utf8("simple") => "simple";

is minify_utf8("\nsimple") => "simple";

is minify_utf8("\n  simple") => "simple";

is minify_utf8("\n  simple\n") => "simple\n";

is minify_utf8("\r  simple \r ") => "simple\n";

is minify_utf8("\n\n  simple\r\n test\n\r") => "simple\ntest\n";

is minify_utf8("simple  \n") => "simple\n";

is minify_utf8("simple  \r") => "simple\n";

is minify_utf8("simple  \nstuff  ") => "simple\nstuff";

is minify_utf8("\r\n\r\n\t0\r\n\t\t1\r\n") => "0\n1\n";

my $BOM = chr(0xfeff);

is minify_utf8( $BOM . "simple" ) => $BOM . "simple", "ignore BOM";

done_testing;