JSON-XS/t/13_limit.t

BEGIN { $| = 1; print "1..9\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 $def) . ("]" x $def)));
ok (ref $js->decode (("{\"\":" x ($def - 1)) . "[]" . ("}" x ($def - 1))));
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 });

Revision:	1.4
Committed:	Wed Apr 4 00:01:44 2007 UTC (17 years, 3 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	rel-1_11, rel-1_1, rel-1_3, rel-1_2, rel-1_24, rel-1_21, rel-1_22, rel-1_23
Changes since 1.3:	+8 -3 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.4	BEGIN { $\| = 1; print "1..9\n"; }
2	root	1.1
3			use JSON::XS;
4
5			our $test;
6			sub ok($;$) {
7			print $_[0] ? "" : "not ", "ok ", ++$test, "\n";
8			}
9
10	root	1.4	my $def = 512;
11
12	root	1.1	my $js = JSON::XS->new;
13
14	root	1.4	ok (!eval { $js->decode (("[" x ($def + 1)) . ("]" x ($def + 1))) });
15			ok (ref $js->decode (("[" x $def) . ("]" x $def)));
16			ok (ref $js->decode (("{\"\":" x ($def - 1)) . "[]" . ("}" x ($def - 1))));
17			ok (!eval { $js->decode (("{\"\":" x $def) . "[]" . ("}" x $def)) });
18
19	root	1.1	ok (ref $js->max_depth (32)->decode (("[" x 32) . ("]" x 32)));
20
21			ok ($js->max_depth(1)->encode ([]));
22			ok (!eval { $js->encode ([[]]), 1 });
23
24			ok ($js->max_depth(2)->encode ([{}]));
25			ok (!eval { $js->encode ([[{}]]), 1 });
26