1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
use strict;
use Test::More;
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
use JSON::PP;
#SKIP_ALL_UNLESS_PP 2.90
BEGIN { plan tests => 2 };
my $json = JSON::PP->new;
my $kb = 'a' x 1024;
my $hash = { map { $_ => $kb } (1..40) };
my $data = join ( '', $json->encode($hash), $json->encode($hash) );
my $size = length($data);
# note "Total size: [$size]";
my $offset = 0;
while ($size) {
# note "Bytes left [$size]";
my $incr = substr($data, $offset, 4096);
my $bytes = length($incr);
$size -= $bytes;
$offset += $bytes;
if ($bytes) {
$json->incr_parse($incr);
}
while( my $obj = $json->incr_parse ) {
ok "Got JSON object";
}
}
|
