| 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 |