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
77
78
79
80
81
82
|
use strict;
use warnings;
use Test::More;
use WebService::S3::Tiny;
{
no warnings 'redefine';
*WebService::S3::Tiny::request = sub { \@_ };
*WebService::S3::Tiny::signed_url = sub { \@_ };
}
my $s3 = WebService::S3::Tiny->new(qw(access_key 1 host 1 secret_key 1));
is_deeply +$s3->delete_bucket('bucket', 'headers'),
[ $s3, 'DELETE', 'bucket', undef, undef, 'headers' ],
'delete_bucket';
is_deeply +$s3->get_bucket('bucket', 'headers', 'parameters'),
[ $s3, 'GET', 'bucket', undef, undef, 'headers', 'parameters' ],
'get_bucket';
is_deeply +$s3->head_bucket('bucket', 'headers'),
[ $s3, 'HEAD', 'bucket', undef, undef, 'headers' ],
'head_bucket';
is_deeply +$s3->put_bucket('bucket', 'headers'),
[ $s3, 'PUT', 'bucket', undef, undef, 'headers' ],
'put_bucket';
is_deeply +$s3->delete_object('bucket', 'object', 'headers'),
[ $s3, 'DELETE', 'bucket', 'object', undef, 'headers' ],
'delete_object';
is_deeply +$s3->get_object('bucket', 'object', 'headers', 'parameters'),
[ $s3, 'GET', 'bucket', 'object', undef, 'headers', 'parameters' ],
'get_object';
is_deeply +$s3->head_object('bucket', 'object', 'headers'),
[ $s3, 'HEAD', 'bucket', 'object', undef, 'headers' ],
'head_object';
is_deeply +$s3->put_object('bucket', 'object', 'content', 'headers'),
[ $s3, 'PUT', 'bucket', 'object', 'content', 'headers' ],
'put_object';
# Signed URL methods
is_deeply +$s3->delete_bucket_url('bucket', 'expires', 'headers', ),
[ $s3, 'DELETE', 'bucket', undef, 'expires', 'headers' ],
'delete_bucket_url';
is_deeply +$s3->get_bucket_url('bucket', 'expires', 'headers', 'parameters'),
[ $s3, 'GET', 'bucket', undef, 'expires', 'headers', 'parameters' ],
'get_bucket_url';
is_deeply +$s3->head_bucket_url('bucket', 'expires', 'headers'),
[ $s3, 'HEAD', 'bucket', undef, 'expires', 'headers' ],
'head_bucket_url';
is_deeply +$s3->put_bucket_url('bucket', 'expires', 'headers'),
[ $s3, 'PUT', 'bucket', undef, 'expires', 'headers' ],
'put_bucket_url';
is_deeply +$s3->delete_object_url('bucket', 'object', 'expires', 'headers'),
[ $s3, 'DELETE', 'bucket', 'object', 'expires', 'headers' ],
'delete_object_url';
is_deeply +$s3->get_object_url('bucket', 'object', 'expires', 'headers', 'parameters'),
[ $s3, 'GET', 'bucket', 'object', 'expires', 'headers', 'parameters' ],
'get_object_url';
is_deeply +$s3->head_object_url('bucket', 'object', 'expires', 'headers'),
[ $s3, 'HEAD', 'bucket', 'object', 'expires', 'headers' ],
'head_object_url';
is_deeply +$s3->put_object_url('bucket', 'object', 'expires', 'headers'),
[ $s3, 'PUT', 'bucket', 'object', 'expires', 'headers' ],
'put_object_url';
done_testing;
|
