| OLD | NEW | 
|---|
|  | (Empty) | 
| 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_u
    tf8; |  | 
| 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 } |  | 
| OLD | NEW | 
|---|