1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
use strict;
use warnings;
use Test::More;
use AnyEvent::Connector;
foreach my $e (qw{http_proxy HTTP_PROXY no_proxy NO_PROXY ftp_proxy FTP_PROXY}) {
delete $ENV{$e};
}
subtest "env_proxy no no_proxy", sub {
local $ENV{http_proxy} = "http://foobar.ne.jp:8080";
my $c = AnyEvent::Connector->new(
env_proxy => "http"
);
is $c->proxy_for("www.foobar.net", 80), "http://foobar.ne.jp:8080";
};
subtest "env_proxy with no_proxy ENV", sub {
local $ENV{http_proxy} = "http://foobar.ne.jp:8080";
local $ENV{no_proxy} = "www.foobar.net";
my $c = AnyEvent::Connector->new(
env_proxy => "http"
);
is $c->proxy_for("www.foobar.net", 80), undef;
is $c->proxy_for("backend.foobar.net", 8080), "http://foobar.ne.jp:8080";
};
subtest "env_proxy with proxy override", sub {
local $ENV{http_proxy} = "http://foobar.ne.jp:8080";
local $ENV{no_proxy} = "www.foobar.net";
my $c = AnyEvent::Connector->new(
env_proxy => "http",
proxy => "http://alt.proxy.com:5000"
);
is $c->proxy_for("www.foobar.net", 80), undef;
is $c->proxy_for("backend.foobar.net", 8080), "http://alt.proxy.com:5000";
$c = AnyEvent::Connector->new(
env_proxy => "http",
proxy => "",
);
is $c->proxy_for("www.foobar.net", 80), undef;
is $c->proxy_for("backend.foobar.net", 8080), undef;
};
subtest "env_proxy with no_proxy override", sub {
local $ENV{http_proxy} = "http://foobar.ne.jp:8080";
local $ENV{no_proxy} = "www.foobar.net";
my $c = AnyEvent::Connector->new(
env_proxy => "http",
no_proxy => "backend.foobar.net",
);
is $c->proxy_for("www.foobar.net", 80), "http://foobar.ne.jp:8080";
is $c->proxy_for("backend.foobar.net", 8080), undef;
$c = AnyEvent::Connector->new(
env_proxy => "http",
no_proxy => ""
);
is $c->proxy_for("www.foobar.net", 80), "http://foobar.ne.jp:8080";
is $c->proxy_for("backend.foobar.net", 8080), "http://foobar.ne.jp:8080";
};
subtest "env_proxy with no matching protocol", sub {
local $ENV{http_proxy} = "http://foobar.ne.jp:8080";
local $ENV{no_proxy} = "www.foobar.net";
my $c = AnyEvent::Connector->new(
env_proxy => "ftp",
);
is $c->proxy_for("www.foobar.net", 80), undef;
is $c->proxy_for("backend.foobar.net", 8080), undef;
};
done_testing;
|
