1 | BEGIN { $| = 1; print "1..7\n"; } |
1 | BEGIN { $| = 1; print "1..8\n"; } |
2 | |
2 | |
3 | use utf8; |
3 | use utf8; |
4 | use JSON::XS; |
4 | use JSON::XS; |
5 | |
5 | |
6 | our $test; |
6 | our $test; |
… | |
… | |
17 | |
17 | |
18 | ok ('{"1":2}' eq to_json $json->decode (' {"1":2}')); |
18 | ok ('{"1":2}' eq to_json $json->decode (' {"1":2}')); |
19 | ok ('{"1":2}' eq to_json $json->decode ('{"1":2,}')); |
19 | ok ('{"1":2}' eq to_json $json->decode ('{"1":2,}')); |
20 | ok (!eval { $json->decode ('{,}') }); |
20 | ok (!eval { $json->decode ('{,}') }); |
21 | |
21 | |
|
|
22 | ok ('[1,2]' eq to_json $json->decode ("[1#,2\n ,2,# ] \n\t]")); |