| OLD | NEW | 
|---|
|  | (Empty) | 
| 1 # copied over from JSON::XS and modified to use JSON |  | 
| 2 |  | 
| 3 use Test::More; |  | 
| 4 use strict; |  | 
| 5 |  | 
| 6 BEGIN { plan tests => 8 }; |  | 
| 7 |  | 
| 8 BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; } |  | 
| 9 |  | 
| 10 BEGIN { |  | 
| 11     use lib qw(t); |  | 
| 12     use _unicode_handling; |  | 
| 13 } |  | 
| 14 |  | 
| 15 use utf8; |  | 
| 16 use JSON; |  | 
| 17 |  | 
| 18 |  | 
| 19 my $json = JSON->new->relaxed; |  | 
| 20 |  | 
| 21 ok ('[1,2,3]' eq encode_json $json->decode (' [1,2, 3]')); |  | 
| 22 ok ('[1,2,4]' eq encode_json $json->decode ('[1,2, 4 , ]')); |  | 
| 23 ok (!eval { $json->decode ('[1,2, 3,4,,]') }); |  | 
| 24 ok (!eval { $json->decode ('[,1]') }); |  | 
| 25 |  | 
| 26 ok ('{"1":2}' eq encode_json $json->decode (' {"1":2}')); |  | 
| 27 ok ('{"1":2}' eq encode_json $json->decode ('{"1":2,}')); |  | 
| 28 ok (!eval { $json->decode ('{,}') }); |  | 
| 29 |  | 
| 30 ok ('[1,2]' eq encode_json $json->decode ("[1#,2\n ,2,#  ]  \n\t]")); |  | 
| OLD | NEW | 
|---|