| 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]")); |
