view release on metacpan or  search on metacpan

t/109_encode.t  view on Meta::CPAN

#
# decode on Perl 5.005, 5.6, 5.8 or later
#
use strict;
use Test::More tests => 7;

use Cpanel::JSON::XS;

BEGIN {
    use lib qw(t);
    use _unicode_handling;
}

no utf8;

my $json = Cpanel::JSON::XS->new;

is($json->encode("ü"),                   q|"ü"|); # as is

$json->ascii;

is($json->encode("\xfc"),           q|"\u00fc"|); # latin1
is($json->encode("\xc3\xbc"), q|"\u00c3\u00bc"|); # utf8
is($json->encode("ü"),        q|"\u00c3\u00bc"|); # utf8
is($json->encode('あ'), q|"\u00e3\u0081\u0082"|);

if ($] >= 5.006) {
    is($json->encode(chr hex 3042 ),  q|"\u3042"|);
    is($json->encode(chr hex 12345 ), q|"\ud808\udf45"|);
}
else {
    is($json->encode(chr hex 3042 ),  $json->encode(chr 66));
    is($json->encode(chr hex 12345 ), $json->encode(chr 69));
}