view release on metacpan or  search on metacpan

t/01-base.t  view on Meta::CPAN

    );

    $ar->success(2);
    dies_ok { $ar->success(1) };
};

DONE_TESTING:
done_testing;

# XXX temporary function
sub rand_between_ok(&$$) {
    my ($block, $min, $max, $name) = @_;
    my @res;
    my %res;
    for (1..30) {
        my $res = $block->();
        do {
            ok(0, "Result #$_ is not between $min and $max ($res)");
            return;
        } if $res < $min || $res > $max;
        push @res, $res;