view release on metacpan or  search on metacpan

t/04_foreach_array.t  view on Meta::CPAN

#!/usr/bin/perl

use warnings;
use strict;
use utf8;
use open qw(:std :utf8);
use lib qw(lib ../lib);

use Test::More tests    => 23;
use Encode qw(decode encode);
use Time::HiRes qw(time);


BEGIN {
    # Подготовка объекта тестирования для работы с utf8
    my $builder = Test::More->builder;
    binmode $builder->output,         ":utf8";
    binmode $builder->failure_output, ":utf8";
    binmode $builder->todo_output,    ":utf8";

    use_ok 'AnyEvent';
    use_ok 'AnyEvent::Tools', ':foreach';
}

{
    my $cv = condvar AnyEvent;
    my $count = 0;

    async_for [], sub { $count++ }, sub { $cv->send };
    $cv->recv;

    ok $count == 0, "async_for with empty array";
}

{
    my $cv = condvar AnyEvent;
    my $count = 0;

    async_for [], sub { $count++ };
    my $t = AE::timer 0.5, 0 => sub { $cv->send };
    $cv->recv;

    ok $count == 0, "async_for with empty array, without endfucntion";
}

{
    my $cv = condvar AnyEvent;
    my %res;
    my $number = 0;

    async_for [ 0 .. 9 ],
        sub {
            my ($g, $value, $index, $first, $last) = @_;
            $res{$index} = {
                value   => $value,
                first   => $first,
                last    => $last,
                called  => $number++,
                time    => time,
            };
        },
        sub {
            $cv->send;
        };


    $cv->recv;