1# copied over from JSON::XS and modified to use JSON::PP 2 3use strict; 4use warnings; 5use Test::More; 6BEGIN { plan tests => 11 }; 7 8BEGIN { $ENV{PERL_JSON_BACKEND} = 0; } 9 10use JSON::PP; 11 12 13my $def = 512; 14 15my $js = JSON::PP->new; 16local $^W; # to silence Deep recursion warnings 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