view release on metacpan or  search on metacpan

t/01_utf8.t  view on Meta::CPAN

BEGIN { $| = 1; print "1..14\n"; }

use utf8;
use JSON::SIMD;

our $test;
sub ok($) {
   print $_[0] ? "" : "not ", "ok ", ++$test, "\n";
}

ok (JSON::SIMD->new->allow_nonref (1)->utf8 (1)->encode ("ü") eq "\"\xc3\xbc\"");
ok (JSON::SIMD->new->allow_nonref (1)->encode ("ü") eq "\"ü\"");
ok (JSON::SIMD->new->allow_nonref (1)->ascii (1)->utf8 (1)->encode (chr 0x8000) eq '"\u8000"');
ok (JSON::SIMD->new->allow_nonref (1)->ascii (1)->utf8 (1)->pretty (1)->encode (chr 0x10402) eq "\"\\ud801\\udc02\"\n");

eval { JSON::SIMD->new->allow_nonref (1)->utf8 (1)->decode ('"ü"') };
ok $@ =~ /input is not valid UTF-8/;

ok (JSON::SIMD->new->allow_nonref (1)->decode ('"ü"') eq "ü");
ok (JSON::SIMD->new->allow_nonref (1)->decode ('"\u00fc"') eq "ü");
ok (JSON::SIMD->new->allow_nonref (1)->decode ('"\ud801\udc02' . "\x{10204}\"") eq "\x{10402}\x{10204}");
ok (JSON::SIMD->new->allow_nonref (1)->decode ('"\"\n\\\\\r\t\f\b"') eq "\"\012\\\015\011\014\010");

eval { JSON::SIMD->new->use_simdjson (0)->allow_nonref (1)->utf8 (1)->decode ('"ü"') };
ok $@ =~ /malformed UTF-8/;

ok (JSON::SIMD->new->use_simdjson (0)->allow_nonref (1)->decode ('"ü"') eq "ü");
ok (JSON::SIMD->new->use_simdjson (0)->allow_nonref (1)->decode ('"\u00fc"') eq "ü");
ok (JSON::SIMD->new->use_simdjson (0)->allow_nonref (1)->decode ('"\ud801\udc02' . "\x{10204}\"") eq "\x{10402}\x{10204}");
ok (JSON::SIMD->new->use_simdjson (0)->allow_nonref (1)->decode ('"\"\n\\\\\r\t\f\b"') eq "\"\012\\\015\011\014\010");