1use strict; 2use Test::More; 3 4BEGIN { plan tests => 11 }; 5 6BEGIN { $ENV{PERL_JSON_BACKEND} = 0; } 7 8use JSON::PP; 9 10 11my $def = 512; 12 13my $js = JSON::PP->new; 14 15{ 16 local $^W = undef; # avoid for warning 'Deep recursion on subroutin' 17 18ok (!eval { $js->decode (("[" x ($def + 1)) . ("]" x ($def + 1))) }); 19ok (ref $js->decode (("[" x $def) . ("]" x $def))); 20ok (ref $js->decode (("{\"\":" x ($def - 1)) . "[]" . ("}" x ($def - 1)))); 21ok (!eval { $js->decode (("{\"\":" x $def) . "[]" . ("}" x $def)) }); 22 23ok (ref $js->max_depth (32)->decode (("[" x 32) . ("]" x 32))); 24 25ok ($js->max_depth(1)->encode ([])); 26ok (!eval { $js->encode ([[]]), 1 }); 27 28ok ($js->max_depth(2)->encode ([{}])); 29ok (!eval { $js->encode ([[{}]]), 1 }); 30 31ok (eval { ref $js->max_size (8)->decode ("[ ]") }); 32eval { $js->max_size (8)->decode ("[ ]") }; ok ($@ =~ /max_size/); 33 34} 35