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