… | |
… | |
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 4096) . ("]" x 4096))); |
12 | ok (ref $js->decode (("[" x 512) . ("]" x 512))); |
13 | ok (ref $js->decode (("{\"\":" x 4095) . "[]" . ("}" x 4095))); |
13 | ok (ref $js->decode (("{\"\":" x 511) . "[]" . ("}" x 511))); |
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 | |