t/01_basic.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

use strict;
use warnings;
use Test::More;

use HTTP::Response;
use Net::Backtype;
use Net::Backtweet;

my $q   = 'lumberjaph';
my $key = 's3kr3t';

ok my $backtype = Net::Backtype->new, 'object backtype created';
_add_handler($backtype);
ok my $res = $backtype->comments_search(key => $key, q => $q,),
  'got result for backtype query';

ok my $backtweet = Net::Backtweet->new, 'object backtweet created';
_add_handler($backtweet);

ok $res = $backtweet->stats_by_url(key => $key, q => $q,),
  'got result for backtweet query';

ok my $compatilibity = $backtweet->backtweet_search(key => $key, q => $q),
  'got result for old compatibility method';

sub _add_handler {
    my $object = shift;
    $object->api_useragent->add_handler(
        'request_send' => sub {
            my $request  = shift;
            my $response = HTTP::Response->new(200);
            $response->header('Content-Type' => 'application/json');
            $response->content(
                '{"startindex" : 1, "itemsperpage" : 25, "since_ts" : 1275874078, "totalresults" : "500"}'
            );
            $response;
        }
    );
}

done_testing;