diff options
Diffstat (limited to 'cpan/HTTP-Tiny/t/140_proxy.t')
-rw-r--r-- | cpan/HTTP-Tiny/t/140_proxy.t | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/cpan/HTTP-Tiny/t/140_proxy.t b/cpan/HTTP-Tiny/t/140_proxy.t index a23568ec98..2432fed2fb 100644 --- a/cpan/HTTP-Tiny/t/140_proxy.t +++ b/cpan/HTTP-Tiny/t/140_proxy.t @@ -12,6 +12,7 @@ use HTTP::Tiny; for my $proxy (undef, "", 0){ local $ENV{all_proxy} = undef; local $ENV{ALL_PROXY} = undef; + local $ENV{HTTP_PROXY} = $proxy; local $ENV{http_proxy} = $proxy; my $c = HTTP::Tiny->new(); ok(!defined $c->http_proxy); @@ -49,18 +50,19 @@ for my $proxy ("http://localhost:8080/", "http://localhost:8080"){ } # case variations -for my $var ( qw/http_proxy https_proxy all_proxy/ ) { +my @vars = map +(uc, lc), qw/http_proxy https_proxy all_proxy/; +for my $var ( @vars ) { 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" ); - } + local @ENV{@vars}; + local $ENV{$var} = $proxy; + my $c = HTTP::Tiny->new(); + my $m = ($var =~ /all/i) ? 'proxy' : lc($var); + is( $c->$m, $proxy, "set $m from $var" ); } # ignore HTTP_PROXY with REQUEST_METHOD { + local $ENV{http_proxy}; local $ENV{HTTP_PROXY} = "http://localhost:8080"; local $ENV{REQUEST_METHOD} = 'GET'; my $c = HTTP::Tiny->new(); |