1 |
BEGIN { $| = 1; print "1..7\n"; } |
2 |
|
3 |
use JSON::XS; |
4 |
|
5 |
our $test; |
6 |
sub ok($;$) { |
7 |
print $_[0] ? "" : "not ", "ok ", ++$test, "\n"; |
8 |
} |
9 |
|
10 |
my $js = JSON::XS->new; |
11 |
|
12 |
ok (ref $js->decode (("[" x 8192) . ("]" x 8192))); |
13 |
ok (ref $js->decode (("{\"\":" x 8191) . "[]" . ("}" x 8191))); |
14 |
ok (ref $js->max_depth (32)->decode (("[" x 32) . ("]" x 32))); |
15 |
|
16 |
ok ($js->max_depth(1)->encode ([])); |
17 |
ok (!eval { $js->encode ([[]]), 1 }); |
18 |
|
19 |
ok ($js->max_depth(2)->encode ([{}])); |
20 |
ok (!eval { $js->encode ([[{}]]), 1 }); |
21 |
|