JSON-XS/t/13_limit.t

BEGIN { $| = 1; print "1..7\n"; }

use JSON::XS;

our $test;
sub ok($;$) {
   print $_[0] ? "" : "not ", "ok ", ++$test, "\n";
}

my $js = JSON::XS->new;

ok (ref $js->decode (("[" x 8192) . ("]" x 8192)));
ok (ref $js->decode (("{\"\":" x 8191) . "[]" . ("}" x 8191)));
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.1
Committed:	Sun Mar 25 21:19:14 2007 UTC (19 years, 6 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	rel-0_8
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	BEGIN { $\| = 1; print "1..7\n"; }
2
3			use JSON::XS;
4
5			our $test;
6			sub ok($;$) {
7			print $_[0] ? "" : "not ", "ok ", ++$test, "\n";
8			}
9
10			my $js = JSON::XS->new;
11
12			ok (ref $js->decode (("[" x 8192) . ("]" x 8192)));
13			ok (ref $js->decode (("{\"\":" x 8191) . "[]" . ("}" x 8191)));
14			ok (ref $js->max_depth (32)->decode (("[" x 32) . ("]" x 32)));
15
16			ok ($js->max_depth(1)->encode ([]));
17			ok (!eval { $js->encode ([[]]), 1 });
18
19			ok ($js->max_depth(2)->encode ([{}]));
20			ok (!eval { $js->encode ([[{}]]), 1 });
21