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
75
76
77
78
79
80
81
82
83
|
#!perl
use strict;
use warnings;
use File::Basename;
use Test::More 0.88;
use lib 't';
use Util qw[ monkey_patch ];
use HTTP::Tiny;
BEGIN {
monkey_patch();
}
# Require a true value
for my $proxy (undef, "", 0){
local $ENV{all_proxy} = undef;
local $ENV{ALL_PROXY} = undef;
local $ENV{http_proxy} = $proxy;
my $c = HTTP::Tiny->new();
ok(!defined $c->http_proxy);
}
# trailing / is optional
for my $proxy ("http://localhost:8080/", "http://localhost:8080"){
local $ENV{http_proxy} = $proxy;
my $c = HTTP::Tiny->new();
is($c->http_proxy, $proxy);
}
# http_proxy must be http://<host>:<port> format
{
local $ENV{http_proxy} = "localhost:8080";
eval {
my $c = HTTP::Tiny->new();
};
like($@, qr{http_proxy URL must be in format http\[s\]://\[auth\@\]<host>:<port>/});
}
# Explicitly disable proxy
{
local $ENV{all_proxy} = "http://localhost:8080";
local $ENV{http_proxy} = "http://localhost:8080";
local $ENV{https_proxy} = "http://localhost:8080";
my $c = HTTP::Tiny->new(
proxy => undef,
http_proxy => undef,
https_proxy => undef,
);
ok(!defined $c->proxy, "proxy => undef disables ENV proxy");
ok(!defined $c->http_proxy, "http_proxy => undef disables ENV proxy");
ok(!defined $c->https_proxy, "https_proxy => undef disables ENV proxy");
}
# case variations
for my $var ( qw/http_proxy https_proxy all_proxy/ ) {
my $proxy = "http://localhost:8080";
for my $s ( uc($var), lc($var) ) {
local $ENV{$s} = $proxy;
my $c = HTTP::Tiny->new();
my $m = ($s =~ /all/i) ? 'proxy' : lc($s);
is( $c->$m, $proxy, "set $m from $s" );
}
}
# ignore HTTP_PROXY with REQUEST_METHOD
{
# in case previous clean-up failed for some reason
delete local @ENV{'http_proxy', 'https_proxy', 'all_proxy',
'HTTP_PROXY', 'HTTPS_PROXY', 'ALL_PROXY'};
local $ENV{HTTP_PROXY} = "http://localhost:8080";
local $ENV{REQUEST_METHOD} = 'GET';
my $c = HTTP::Tiny->new();
ok(!defined $c->http_proxy,
"http_proxy not set from HTTP_PROXY if REQUEST_METHOD set");
}
done_testing();
|
