view release on metacpan or  search on metacpan

t/irange.t  view on Meta::CPAN

## One-arg irange (infinite) (3)
eval
{
    $iter = irange(52);
};

is $@, q{},   q{Created one-arg iterator; no exception};

# How do you test an infinite iterator?
# Well, let's run through a bunch of iterations, see if it pans out.
$worked = 1;   # assume okay
eval
{
    foreach my $test (52..151)   # try a hundred values
    {
        if ($test != $iter->value  ||  $iter->is_exhausted)
        {
            $worked = 0;
            last;
        }