From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

UNOBE / WWW-Facebook-API-v0.4.1 / t / api.t 

            

              
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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139

              
#######################################################################
# $Date: 2007-07-11 07:21:31 -0700 (Wed, 11 Jul 2007) $
# $Revision: 146 $
# $Author: david.romano $
# ex: set ts=8 sw=4 et
#########################################################################
use Test::More 'no_plan'; # tests => 34;
use WWW::Facebook::API;
use strict;
use warnings;
my $api = WWW::Facebook::API->new( api_key => 1, secret => 1,
session_uid => '', session_key => '', session_expires => '' );
isa_ok $api, 'WWW::Facebook::API';
for ( qw/require_frame require_login/ ) {
    eval { $api->$_ };
    like $@, qr/^Can't call method "param"/, "need query for $_";
}
# Test global environment settings
{
    local %ENV = %ENV;
    @ENV{ map { "WFA_$_" } qw/API_KEY SECRET_KEY DESKTOP/} = qw/3 2 1/;
    ## no warnings 'redefine' still warns... :-(
    local %WWW::Facebook::API::;
    delete @INC{ grep { m[^WWW/Facebook/API]xms } keys %INC};
    require WWW::Facebook::API;
     
    my $api = WWW::Facebook::API->new();
    is $api->api_key, 3, 'WFA_API_KEY ok';
    is $api->secret, 2, 'WFA_SECRET_KEY ok';
    is $api->desktop, 1, 'WFA_DESKTOP ok';
}
# Test app-specific environment settings
{
    local %ENV = %ENV;
    @ENV{ map { "WFA_${_}_TEST_ME" } qw/API_KEY SECRET_KEY DESKTOP/} = qw/3 2 1/;
    my $api = WWW::Facebook::API->new( app_path => 'test-me' );
    is $api->api_key, 3, 'WFA_API_KEY_TEST_ME ok';
    is $api->secret, 2, 'WFA_SECRET_KEY_TEST_ME ok';
    is $api->desktop, 1, 'WFA_DESKTOP_TEST_ME ok';
}
is $api->$_, '', "$_ init ok" for qw(session_uid session_key session_expires);
my %final_session = (
    uid     => 22343,
    expires => 2343423,
    key     => 'cd324235fe34353',
);
$api->session(%final_session);
for ( keys %final_session ) {
    is eval "\$api->session_$_", $final_session{$_}, "session_$_ set ok";
}
my @escaped = ( '\"hell\nhath\nno\nfury\"' => qq("hell\nhath\nno\nfury") );
is $api->unescape_string( $escaped[0] ), $escaped[1], 'unescape_string ok';
is $api->get_facebook_url, 'http://www.facebook.com', 'get_facebook_url ok';
is $api->get_facebook_url('apps'), 'http://apps.facebook.com',
    'get_facebook_url arg ok';
is $api->_add_url_params, '?api_key=1&v=1.0', '_add_url_params ok';
is $api->_add_url_params( auth_token => 'efdb34342ef' ),
    '?api_key=1&v=1.0&auth_token=efdb34342ef', '_add_url_params arg ok';
is $api->_add_url_params( next => '" woot "' ),
    '?api_key=1&v=1.0&next=%22%20woot%20%22',
    '_add_url_params next escapes ok';
is $api->get_add_url, 'http://www.facebook.com/add.php?api_key=1&v=1.0',
    'get_add_url ok';
is $api->get_login_url, 'http://www.facebook.com/login.php?api_key=1&v=1.0',
    'get_login_url ok';
is $api->apps_uri, 'http://apps.facebook.com/', 'apps_uri ok';
is $api->app_path, '', 'app_path ok';
$api->app_path('foo');
is $api->app_path, 'foo', 'app_path set ok';
is $api->get_app_url, 'http://apps.facebook.com/foo/', 'get_app_url ok';
# test for passing undef (shouldn't reset value)
$api->app_path(undef);
is $api->app_path, 'foo', 'app_path not reset';
## sig stuff
my %sig_params = ( params => { method => 'hi' }, secret => 'cool' );
my $sig = '54b12be659505fa965d7fcee080c32ee';
is $api->generate_sig( %sig_params ), $sig, 'sig generate ok';
is $api->verify_sig( sig => $sig, %sig_params ), 1, 'sig verify 1 ok';
$api->secret(delete $sig_params{'secret'});
is $api->verify_sig( sig => $sig, %sig_params ), 1, 'sig verify 2 ok';
$api->secret('');
is $api->verify_sig( sig => $sig, %sig_params ), '', 'sig verify 3 nok';
# call method
{
    no warnings 'redefine';
    local $WWW::Facebook::API::{_post_request} = sub { return qq{"$_[2]"} };
    my $args = { params => { method => 'hello', secret => 'foo' } };
    my $secret = $api->call( 'hey', %$args );
    isnt $secret, $api->secret, 'secret not object\'s';
    is  $secret, $args->{'params'}->{'secret'}, 'secret is param\'s';
    is $args->{'params'}->{'method'}, 'facebook.hello', 'call method changed';
    eval q{use IO::String};
    SKIP: {
        skip 'Need IO::String to test debug output' => 1 if $@;
        my $debug;
        open my $stderr, '>&STDERR' or diag "Cannot copy STDERR";
        {
            close STDERR;
            tie *STDERR, 'IO::String';
            $api->debug(1);
            $secret = $api->call( 'hey', %$args );
            $api->debug(0);
            seek(STDERR, 0, 0);
            $debug = join '', <STDERR>;
            untie *STDERR;
        }
        like $debug, <<'END_DEBUG', 'debug string ok';
/\s*params\s=\s*
       api_key:1\s*
       format:JSON\s*
       method:facebook.facebook.hello\s*
       secret:foo\s*
       session_key:cd324235fe34353\s*
       sig:54c540e9324e6daf895c120736c9ac59\s*
       v:1.0\s*
 response\s=\s*
 "foo"\s*
(?-x: at t/api.t line \d+
JSON::Any is parsing with [^\ ]+ at t/api.t line \d+)/xms
END_DEBUG
    }
}