view release on metacpan or  search on metacpan

xt/fork_bomb.t  view on Meta::CPAN

my $elapsed = time - $t0;

is $r->count, $N * $PER, sprintf("all %d writes accounted (%.1fs)", $N * $PER, $elapsed);
cmp_ok $elapsed, '<', 30, 'completed within 30s';

# Sample the latest: should be some valid combination
my $v = $r->latest(0);
ok defined $v, 'latest() succeeds after storm';
my $w_enc = int($v / 100_000);
my $i_enc = $v % 100_000;
cmp_ok $w_enc, '>=', 1, "decoded writer $w_enc in range";
cmp_ok $w_enc, '<=', $N, "decoded writer in range";
cmp_ok $i_enc, '>=', 1, "decoded iter in range";
cmp_ok $i_enc, '<=', $PER, "decoded iter in range";

done_testing;