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
|
#!perl
use strict;
use warnings;
use File::Basename;
use Test::More 0.88;
use HTTP::Tiny;
# Require a true value
for my $proxy (undef, "", 0){
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>/});
}
done_testing();
|
