view release on metacpan or  search on metacpan

t/trivial.t  view on Meta::CPAN

ok $run, 'got run';

my $exit = $run->delegate('completion_condvar')->recv;
my $end_time = time;

$b->current_test( $b->current_test() + 1 );

ok $exit, 'got exit';
is $exit->exit_value, 42, 'exited with "exit 42"';
ok ( ( $end_time - $start_time ) > 1, 'kid was alive for more than a second');