AnyEvent-Net-Curl-Queued

 view release on metacpan or  search on metacpan

t/01-net-curl-compatibility.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
#!perl
# shamelessly borrowed from Net::Curl t/compat-19multi.t
use lib qw(inc);
use strict;
use utf8;
use warnings qw(all);
 
use Test::More;
 
use Test::HTTP::AnyEvent::Server;
use AnyEvent::Net::Curl::Queued::Easy;
use AnyEvent::Net::Curl::Queued::Multi;

t/20-easy.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
#!perl
use lib qw(inc);
use strict;
use utf8;
use warnings qw(all);
 
use Digest::SHA qw(sha256_base64);
use Test::HTTP::AnyEvent::Server;
use Test::More;
 
my $server = Test::HTTP::AnyEvent::Server->new(forked => 1);

t/21-easy-bulk-getset.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
#!perl
use lib qw(inc);
use strict;
use utf8;
use warnings qw(all);
 
use Test::More;
diag('setopt()/getinfo() are *forced* to fail so warnings are OK here!');
 
use AnyEvent::Net::Curl::Queued;
use AnyEvent::Net::Curl::Queued::Easy;
use Test::HTTP::AnyEvent::Server;

t/30-queued-single.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
#!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('AnyEvent::Net::Curl::Queued::Stats');
use_ok('Test::HTTP::AnyEvent::Server');

t/31-queued.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
#!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('AnyEvent::Net::Curl::Queued::Stats');
use_ok('Test::HTTP::AnyEvent::Server');

t/40-loopback.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!perl
use lib qw(inc);
use strict;
use utf8;
use warnings qw(all);
 
use Test::More;
 
use_ok('AnyEvent::Net::Curl::Queued');
use_ok('Test::HTTP::AnyEvent::Server');
 
use lib qw(t);
use_ok(q(Loopbacker));
 
my $server = Test::HTTP::AnyEvent::Server->new;
isa_ok($server, 'Test::HTTP::AnyEvent::Server');
 
my $q = AnyEvent::Net::Curl::Queued->new({ allow_dups => 1 });
isa_ok($q, 'AnyEvent::Net::Curl::Queued');
 
can_ok($q, qw(append prepend cv));

t/41-loopback-cb.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
#!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');

t/42-loopback-retry.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!perl
use lib qw(inc);
use strict;
use utf8;
use warnings qw(all);
 
use Test::More;
 
use_ok('AnyEvent::Net::Curl::Queued');
use_ok('Test::HTTP::AnyEvent::Server');
 
use lib qw(t);
use_ok(q(Retrier));
 
my $server = Test::HTTP::AnyEvent::Server->new;
isa_ok($server, 'Test::HTTP::AnyEvent::Server');
 
my $q = AnyEvent::Net::Curl::Queued->new;
isa_ok($q, 'AnyEvent::Net::Curl::Queued');
 
can_ok($q, qw(append prepend cv));

t/43-loopback-yada.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
#!perl
use lib qw(inc);
use strict;
use utf8;
use warnings qw(all);
 
use Encode;
use JSON;
use Test::More;
 
use_ok('YADA');
use_ok('YADA::Worker');

t/44-yada-simple.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
#!perl
use lib qw(inc);
use strict;
use utf8;
use warnings qw(all);
 
use Test::More;
 
use Test::HTTP::AnyEvent::Server;
use YADA;
 
my $server = Test::HTTP::AnyEvent::Server->new;

t/50-recursion.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!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('AnyEvent::Net::Curl::Queued::Stats');
use_ok('Test::HTTP::AnyEvent::Server');
 
use lib qw(t);
use_ok(q(Recursioner));
 
my $server = Test::HTTP::AnyEvent::Server->new;
isa_ok($server, 'Test::HTTP::AnyEvent::Server');
 
my $q = AnyEvent::Net::Curl::Queued->new;
isa_ok($q, qw(AnyEvent::Net::Curl::Queued));
 
$q->append(
    sub {

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

1
2
3
4
5
6
7
8
9
10
11
#!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');

t/61-nest.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
#!perl
use lib qw(inc);
use strict;
use utf8;
use warnings qw(all);
 
use Test::More;
use List::Util qw(shuffle);
 
use AnyEvent::Net::Curl::Queued;
use AnyEvent::Net::Curl::Queued::Easy;
use Test::HTTP::AnyEvent::Server;

t/70-timeout.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!perl
use lib qw(inc);
use strict;
use utf8;
use warnings qw(all);
 
use Test::More;
 
use AnyEvent::Net::Curl::Queued;
use AnyEvent::Net::Curl::Queued::Easy;
use Test::HTTP::AnyEvent::Server;
 
use lib qw(t);
use_ok(q(Timeouter));
 
my $server = Test::HTTP::AnyEvent::Server->new;
my $q = AnyEvent::Net::Curl::Queued->new(
    timeout         => 5,   # allow watchdog to manifest itself
);
 
$q->append(sub {
    Timeouter->new(
        initial_url => $server->uri . 'delay/20',   # 3x timeout