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
|
#!perl
#
# This file is part of HTTP-Tiny
#
# This software is copyright (c) 2011 by Christian Hansen.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
use strict;
use warnings;
use Test::More;
use HTTP::Tiny;
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 $http = HTTP::Tiny->new;
for my $c ( @cases ) {
my ($method, @args) = @$c;
eval {$http->$method(@args)};
my $err = $@;
like ($err, qr/\Q$usage{$method}\E/, join("|",@$c) );
}
done_testing;
|
