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
|
#!perl
use warnings;
use strict;
use Test::More tests => 3 + 4 * 3 + 5;
use_ok 'Net::Twitter::Search';
use_ok 'Net::Twitter::OAuth';
use_ok 'Net::Identica';
sub does_legacy_roles {
my $nt = shift;
ok $nt->does($_) for map "Net::Twitter::Role::$_",
qw/Legacy API::REST API::Search WrapError/;
}
my $nt = Net::Twitter::Search->new;
does_legacy_roles($nt);
like $nt->apiurl, qr/twitter/, 'twitter url';
is $nt->apihost, 'api.twitter.com:80', 'twitter host';
$nt = Net::Twitter::OAuth->new(consumer_key => 'key', consumer_secret => 'secret');
does_legacy_roles($nt);
ok $nt->does('Net::Twitter::Role::OAuth');
$nt = Net::Identica->new;
does_legacy_roles($nt);
like $nt->apiurl, qr/identi[.]ca/, 'identica url';
is $nt->apihost, 'identi.ca:80', 'identica host';
|
