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
83
84
85
86
87
88
89
90
91
92
93
94
|
use Test::More;
BEGIN { plan tests => 17 };
BEGIN { use_ok( 'Flickr::API' ); }
##################################################
#
# create an api object
#
my $api = new Flickr::API({
'key' => 'made_up_key',
'secret' => 'my_secret',
});
my $rsp = $api->execute_method('fake.method', {});
##################################################
#
# check we get the 'method not found' error
#
if ($rsp->{_rc} eq '200'){
# this error code may change in future!
is($rsp->{error_code}, 112, 'checking the error code for "method not found"');
}else{
is(1, 1, "skipping error code check, since we couldn't reach the API");
}
##################################################
#
# check the 'format not found' error is working
#
$rsp = $api->execute_method('flickr.test.echo', {format => 'fake'});
if ($rsp->{_rc} eq '200'){
is($rsp->{error_code}, 111, 'checking the error code for "format not found"');
}else{
is(1, 1, "skipping error code check, since we couldn't reach the API");
}
##################################################
#
# check the signing works properly
#
ok('466cd24ced0b23df66809a4d2dad75f8' eq $api->sign_args({'foo' => 'bar'}), "Signing test 1");
ok('f320caea573c1b74897a289f6919628c' eq $api->sign_args({'foo' => undef}), "Signing test 2");
##################################################
#
# check the auth url generator is working
#
my $uri = $api->request_auth_url('r', 'my_frob');
my %expect = &parse_query('api_sig=d749e3a7bd27da9c8af62a15f4c7b48f&perms=r&frob=my_frob&api_key=made_up_key');
my %got = &parse_query($uri->query);
sub parse_query {
my %hash;
foreach my $pair (split(/\&/, shift)) {
my ($name, $value) = split(/\=/, $pair);
$hash{$name} = $value;
}
return(%hash);
}
foreach my $item (keys %expect) {
is($expect{$item}, $got{$item}, "Checking that the $item item in the query matches");
}
foreach my $item (keys %got) {
is($expect{$item}, $got{$item}, "Checking that the $item item in the query matches in reverse");
}
ok($uri->path eq '/services/auth/', "Checking correct return path");
ok($uri->host eq 'www.flickr.com', "Checking return domain");
ok($uri->scheme eq 'http', "Checking return protocol");
##################################################
#
# check we can't generate a url without a secret
#
$api = new Flickr::API({'key' => 'key'});
$uri = $api->request_auth_url('r', 'frob');
ok(!defined $uri, "Checking URL generation without a secret");
|
