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