1 | BEGIN { $| = 1; print "1..9\n"; } |
1 | BEGIN { $| = 1; print "1..11\n"; } |
2 | |
2 | |
3 | use JSON::XS; |
3 | use JSON::XS; |
4 | |
4 | |
5 | our $test; |
5 | our $test; |
6 | sub ok($;$) { |
6 | sub ok($;$) { |
… | |
… | |
22 | ok (!eval { $js->encode ([[]]), 1 }); |
22 | ok (!eval { $js->encode ([[]]), 1 }); |
23 | |
23 | |
24 | ok ($js->max_depth(2)->encode ([{}])); |
24 | ok ($js->max_depth(2)->encode ([{}])); |
25 | ok (!eval { $js->encode ([[{}]]), 1 }); |
25 | ok (!eval { $js->encode ([[{}]]), 1 }); |
26 | |
26 | |
|
|
27 | ok (eval { ref $js->max_size (7)->decode ("[ ]") }); |
|
|
28 | eval { $js->max_size (7)->decode ("[ ]") }; ok ($@ =~ /max_size/); |
|
|
29 | |