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
|
use strict;
use warnings;
use Furl::HTTP;
use Test::TCP;
use Test::Requires qw(Plack::Request HTTP::Body), 'Plack';
use Plack::Loader;
use Test::More;
use Plack::Request;
use Test::Requires qw(Plack::Request HTTP::Body), 'HTTP::Proxy';
plan tests => 4 + 7*3;
my $verbose = 1;
{
package Test::HTTP::Proxy;
use parent qw(HTTP::Proxy);
sub log {
my($self, $level, $prefix, $msg) = @_;
::note "$prefix: $msg" if $verbose;
}
}
{
my $furl = Furl::HTTP->new;
ok $furl->match_no_proxy(".google.com", "www.google.com");
ok $furl->match_no_proxy("google.com", "www.google.com");
ok $furl->match_no_proxy("google.com,.yahoo.com", "mail.yahoo.com");
ok $furl->match_no_proxy(",twitter.com , facebook.com", "www.twitter.com");
}
my $via = "VIA!VIA!VIA!";
test_tcp(
client => sub {
my $proxy_port = shift;
test_tcp(
client => sub { # http client
my $httpd_port = shift;
for (1..3) { # run some times for testing keep-alive.
my $furl = Furl::HTTP->new(proxy => "http://127.0.0.1:$proxy_port", no_proxy => "127.0.0.1");
my ( undef,$code, $msg, $headers, $content ) =
$furl->request(
url => "http://127.0.0.1:$httpd_port/foo",
headers => [ "X-Foo" => "ppp" ]
);
is $code, 200, "request()";
is $msg, "OK";
is Furl::HTTP::_header_get($headers, 'Content-Length'), 10;
isnt Furl::HTTP::_header_get($headers, 'Via'), "1.0 $via", "passing through the proxy";
is $content, 'Hello, foo'
or do{ require Devel::Peek; Devel::Peek::Dump($content) };
}
},
server => sub { # http server
my $httpd_port = shift;
Plack::Loader->auto(port => $httpd_port)->run(sub {
my $env = shift;
my $req = Plack::Request->new($env);
is $req->header('X-Foo'), "ppp" if $env->{REQUEST_URI} eq '/foo';
like $req->header('User-Agent'), qr/\A Furl::HTTP /xms;
my $content = "Hello, foo";
return [ 200,
[ 'Content-Length' => length($content) ],
[ $content ]
];
});
},
);
},
server => sub { # proxy server
my $proxy_port = shift;
my $proxy = Test::HTTP::Proxy->new(host => '127.0.0.1', port => $proxy_port, via => $via);
$proxy->start();
},
);
|
