| 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 | |
