1# copied over from JSON::XS and modified to use JSON 2 3use Test::More; 4use strict; 5BEGIN { plan tests => 4 }; 6 7BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; } 8 9BEGIN { 10 use lib qw(t); 11 use _unicode_handling; 12} 13 14use JSON; 15 16SKIP: { 17 skip "UNICODE handling is disabale.", 4 unless $JSON::can_handle_UTF16_and_utf8; 18 19my $xs = JSON->new->latin1->allow_nonref; 20 21ok $xs->encode ("\x{12}\x{89} ") eq "\"\\u0012\x{89} \""; 22ok $xs->encode ("\x{12}\x{89}\x{abc}") eq "\"\\u0012\x{89}\\u0abc\""; 23 24ok $xs->decode ("\"\\u0012\x{89}\"" ) eq "\x{12}\x{89}"; 25ok $xs->decode ("\"\\u0012\x{89}\\u0abc\"") eq "\x{12}\x{89}\x{abc}"; 26 27} 28