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
|
#!perl
use strict;
use warnings;
use Test::More;
use lib 't';
use Util qw[tmpfile monkey_patch set_socket_source];
use HTTP::Tiny;
BEGIN { monkey_patch() }
my %usage = (
'get' => q/Usage: $http->get(URL, [HASHREF])/,
'mirror' => q/Usage: $http->mirror(URL, FILE, [HASHREF])/,
'request' => q/Usage: $http->request(METHOD, URL, [HASHREF])/,
);
my @cases = (
['get'],
['get','http://www.example.com/','extra'],
['get','http://www.example.com/','extra', 'extra'],
['mirror'],
['mirror','http://www.example.com/',],
['mirror','http://www.example.com/','extra', 'extra'],
['mirror','http://www.example.com/','extra', 'extra', 'extra'],
['request'],
['request','GET'],
['request','GET','http://www.example.com/','extra'],
['request','GET','http://www.example.com/','extra', 'extra'],
);
my $res_fh = tmpfile();
my $req_fh = tmpfile();
my $http = HTTP::Tiny->new;
set_socket_source($req_fh, $res_fh);
for my $c ( @cases ) {
my ($method, @args) = @$c;
eval {$http->$method(@args)};
my $err = $@;
like ($err, qr/\Q$usage{$method}\E/, join("|",@$c) );
}
my $res = eval{ $http->get("http://www.example.com/", { headers => { host => "www.example2.com" } } ) };
is( $res->{status}, 599, "Providing a Host header errors with 599" );
like( $res->{content}, qr/'Host' header/, "Providing a Host header gives right error message" );
done_testing;
|
