[ViewVC] Diff of: cvs/JSON-XS/t/13

Comparing JSON-XS/t/13_limit.t (file contents):
Revision 1.2 by root, Thu Mar 29 02:45:50 2007 UTC vs.
Revision 1.6 by root, Sat Apr 5 18:15:46 2008 UTC

-BEGIN { $| = 1; print "1..7\n"; }
+BEGIN { $| = 1; print "1..11\n"; }
 use JSON::XS;
 our $test;
 sub ok($;$) {
    print $_[0] ? "" : "not ", "ok ", ++$test, "\n";
 }
+my $def = 512;
 my $js = JSON::XS->new;
+ok (!eval { $js->decode (("[" x ($def + 1)) . ("]" x ($def + 1))) });
-ok (ref $js->decode (("[" x 4096) . ("]" x 4096)));
+ok (ref $js->decode (("[" x $def) . ("]" x $def)));
+ok (ref $js->decode (("{\"\":" x ($def - 1)) . "[]" . ("}" x ($def - 1))));
-ok (ref $js->decode (("{\"\":" x 4095) . "[]" . ("}" x 4095)));
+ok (!eval { $js->decode (("{\"\":" x $def) . "[]" . ("}" x $def)) });
 ok (ref $js->max_depth (32)->decode (("[" x 32) . ("]" x 32)));
 ok ($js->max_depth(1)->encode ([]));
 ok (!eval { $js->encode ([[]]), 1 });
 ok ($js->max_depth(2)->encode ([{}]));
 ok (!eval { $js->encode ([[{}]]), 1 });
+ok (eval { ref $js->max_size (8)->decode ("[      ]") });
+eval { $js->max_size (8)->decode ("[       ]") }; ok ($@ =~ /max_size/);

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines