| … | |
… | |
| 7 | print $_[0] ? "" : "not ", "ok ", ++$test, "\n"; |
7 | print $_[0] ? "" : "not ", "ok ", ++$test, "\n"; |
| 8 | } |
8 | } |
| 9 | |
9 | |
| 10 | my $js = JSON::XS->new; |
10 | my $js = JSON::XS->new; |
| 11 | |
11 | |
| 12 | ok (ref $js->decode (("[" x 8192) . ("]" x 8192))); |
12 | ok (ref $js->decode (("[" x 4096) . ("]" x 4096))); |
| 13 | ok (ref $js->decode (("{\"\":" x 8191) . "[]" . ("}" x 8191))); |
13 | ok (ref $js->decode (("{\"\":" x 4095) . "[]" . ("}" x 4095))); |
| 14 | ok (ref $js->max_depth (32)->decode (("[" x 32) . ("]" x 32))); |
14 | ok (ref $js->max_depth (32)->decode (("[" x 32) . ("]" x 32))); |
| 15 | |
15 | |
| 16 | ok ($js->max_depth(1)->encode ([])); |
16 | ok ($js->max_depth(1)->encode ([])); |
| 17 | ok (!eval { $js->encode ([[]]), 1 }); |
17 | ok (!eval { $js->encode ([[]]), 1 }); |
| 18 | |
18 | |
