view release on metacpan or  search on metacpan

t/030-ae-cbs.t  view on Meta::CPAN

    $cbs->wait(sub { @res = @_; $cv->send });

    $cv->recv;

    cmp_ok scalar(@res), '~~', 0, 'empty list';
}

for my $cv (AE::cv) {
    my @res;
    my $cbs = CBS;
    my @timers;

    for (1 .. 10) {
        push @timers => AE::timer rand .1, 0, $cbs->cb;
    }
    push @timers => AE::timer 0, 0, $cbs->cb;

    $cbs->wait(sub { @res = @_; $cv->send });

    {
        $cbs->cb;
    }

    $cv->recv;

    cmp_ok scalar(@res), '~~', 12, 'stack list';