view release on metacpan or  search on metacpan

t/60-cleanup.t  view on Meta::CPAN

#!perl
use lib qw(inc);
use strict;
use utf8;
use warnings qw(all);

use Test::More;

use_ok('AnyEvent::Net::Curl::Queued');
use_ok('AnyEvent::Net::Curl::Queued::Easy');
use_ok('Test::HTTP::AnyEvent::Server');

my $server = Test::HTTP::AnyEvent::Server->new;
isa_ok($server, 'Test::HTTP::AnyEvent::Server');

my $n = 5;
for (1 .. $n) {
    my $q = AnyEvent::Net::Curl::Queued->new;
    isa_ok($q, qw(AnyEvent::Net::Curl::Queued));

    $q->append(
        sub {
            AnyEvent::Net::Curl::Queued::Easy->new($server->uri . 'echo/head')
        }
    );

    $q->wait;

    ok($q->completed == 1, 'single GET');
}

done_testing(4 + 2 * $n);