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