view release on metacpan or  search on metacpan

t/11_stress.t  view on Meta::CPAN

}

# large string values
{
    my $long = "x" x 100_000;
    my $json = encode_json({s => $long});
    my $back = decode_json($json);
    is length($back->{s}), 100_000, "100K string roundtrip";
}

# many iterations
{
    my $json = encode_json([map { {id => $_} } 1..1000]);
    my $doc = jdoc $json;
    my $it = jiter $doc, "";
    my $count = 0;
    while (defined(my $v = jnext $it)) { $count++ }
    is $count, 1000, "iterate 1000 elements";
}

# repeated doc creation/destruction (leak check)