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
|
use strict;
use warnings;
use Furl::HTTP;
use Test::TCP;
use Test::More;
use FindBin;
use lib "$FindBin::Bin/../..";
use t::HTTPServer;
test_tcp(
client => sub {
my $port = shift;
subtest 'set agent' => sub {
my $furl = Furl::HTTP->new();
$furl->agent('foobot');
my ( undef, $code, $msg, $headers, $content ) =
$furl->request( url => "http://127.0.0.1:$port/1", );
is $code, 200;
is $content, 'foobot';
};
subtest 'set agent at request' => sub {
my $furl = Furl::HTTP->new();
my ( undef, $code, $msg, $headers, $content ) =
$furl->request(
url => "http://127.0.0.1:$port/2",
headers => [ "User-Agent" => "foobot" ]
);
is $code, 200;
like $content, qr/\A Furl::HTTP\/[^,]+,\sfoobot /xms;
};
subtest 'set agent and request with agent' => sub {
my $furl = Furl::HTTP->new();
$furl->agent('foobot');
my ( undef, $code, $msg, $headers, $content ) =
$furl->request(
url => "http://127.0.0.1:$port/3",
headers => [ "User-Agent" => "barbot" ]
);
is $code, 200;
is $content, 'foobot, barbot';
};
},
server => sub {
my $port = shift;
t::HTTPServer->new(port => $port)->run(sub {
my $env = shift;
return [ 200,
[ 'Content-Length' => length($env->{'HTTP_USER_AGENT'}) ],
[$env->{'HTTP_USER_AGENT'}]
];
});
}
);
done_testing;
|
