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 |