view release on metacpan or  search on metacpan

t/module.t  view on Meta::CPAN

    my ( $count, $result );
    while (1) {
        $result = $code->();
        $count++;
        last if ( $result or $count >= $limit );
        sleep 1;
    }

    ok( $result, $label );
    note("Previous test took $count wait iterations to complete");
}

time_test( sub {
    my $log_file = &get_log_file;
    return 1 if (
        scalar( grep { $_ =~ /PARENT \d+ start/ } @$log_file ) and
        scalar( grep { $_ =~ /CHILD \d+ start/  } @$log_file ) == 3
    );
}, 120, 'Parent and 3 (and no more) children started' );