Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
113 lines (98 sloc) 6.58 KB
#!perl
use warnings;
use strict;
use Test::More;
use lib qw(t/lib);
eval 'use TestUA';
plan skip_all => 'LWP::UserAgent 5.819 required' if $@;
my $screen_name = 'net_twitter';
my $message_id = 1234;
my $status = 'Hello, world!';
my @tests = (
[ create_block => [ $screen_name ], POST => "/blocks/create/$screen_name.json", __LINE__ ],
[ create_favorite => [ $message_id ], POST => "/favorites/create/$message_id.json", __LINE__ ],
[ create_favorite => [ { id => $message_id } ], POST => "/favorites/create/$message_id.json", __LINE__ ],
[ create_friend => [ $screen_name ], POST => "/friendships/create/$screen_name.json", __LINE__ ],
[ destroy_block => [ $screen_name ], POST => "/blocks/destroy/$screen_name.json", __LINE__ ],
[ destroy_direct_message => [ $message_id ], POST => "/direct_messages/destroy/$message_id.json", __LINE__ ],
[ destroy_favorite => [ $message_id ], POST => "/favorites/destroy/$message_id.json", __LINE__ ],
[ destroy_favorite => [ { id => $message_id } ], POST => "/favorites/destroy/$message_id.json", __LINE__ ],
[ destroy_friend => [ $screen_name ], POST => "/friendships/destroy/$screen_name.json", __LINE__ ],
[ destroy_status => [ $message_id ], POST => "/statuses/destroy/$message_id.json", __LINE__ ],
[ destroy_status => [ { id => $message_id } ], POST => "/statuses/destroy/$message_id.json", __LINE__ ],
[ direct_messages => [], GET => "/direct_messages.json", __LINE__ ],
[ disable_notifications => [ $screen_name ], POST => "/notifications/leave/$screen_name.json", __LINE__ ],
[ disable_notifications => [ { id => $screen_name }], POST => "/notifications/leave/$screen_name.json", __LINE__ ],
[ downtime_schedule => [], GET => "/help/downtime_schedule.json", __LINE__ ],
[ enable_notifications => [ $screen_name ], POST => "/notifications/follow/$screen_name.json", __LINE__ ],
[ enable_notifications => [ { id => $screen_name }], POST => "/notifications/follow/$screen_name.json", __LINE__ ],
[ end_session => [], POST => "/account/end_session.json", __LINE__ ],
[ favorites => [], GET => "/favorites.json", __LINE__ ],
[ followers => [], GET => "/statuses/followers.json", __LINE__ ],
[ friends => [], GET => "/statuses/friends.json", __LINE__ ],
[ friends_timeline => [], GET => "/statuses/friends_timeline.json", __LINE__ ],
[ new_direct_message => [ { user => $screen_name, text => $status } ],
POST => "/direct_messages/new.json", __LINE__ ],
[ new_direct_message => [ $screen_name, $status ], POST => "/direct_messages/new.json", __LINE__ ],
[ new_direct_message => [ { user_id => 1234, text => $status } ],
POST => "/direct_messages/new.json", __LINE__ ],
[ new_direct_message => [ { screen_name => $screen_name, text => $status } ],
POST => "/direct_messages/new.json", __LINE__ ],
[ public_timeline => [], GET => "/statuses/public_timeline.json", __LINE__ ],
[ rate_limit_status => [], GET => "/account/rate_limit_status.json", __LINE__ ],
[ friendship_exists => [ 'a', 'b' ], GET => "/friendships/exists.json", __LINE__ ],
[ mentions => [], GET => "/statuses/mentions.json", __LINE__ ],
[ sent_direct_messages => [], GET => "/direct_messages/sent.json", __LINE__ ],
[ show_status => [ $screen_name ], GET => "/statuses/show/$screen_name.json", __LINE__ ],
[ show_user => [ $screen_name ], GET => "/users/show/$screen_name.json", __LINE__ ],
[ test => [], GET => "/help/test.json", __LINE__ ],
[ update => [ $status ], POST => "/statuses/update.json", __LINE__ ],
[ update_delivery_device => [ 'sms' ], POST => "/account/update_delivery_device.json", __LINE__ ],
[ update_profile => [ { name => $screen_name } ], POST => "/account/update_profile.json", __LINE__ ],
[ update_profile_background_image => [ { image => 'binary' } ],
POST => "/account/update_profile_background_image.json", __LINE__ ],
[ update_profile_colors => [ { profile_background_color => '#0000' } ],
POST => "/account/update_profile_colors.json", __LINE__ ],
[ update_profile_image => [ { image => 'binary data here' } ],
POST => "/account/update_profile_image.json", __LINE__ ],
[ user_timeline => [], GET => "/statuses/user_timeline.json", __LINE__ ],
[ verify_credentials => [], GET => "/account/verify_credentials.json", __LINE__ ],
);
plan tests => @tests * 2 * 4 + 2;
use_ok 'Net::Twitter';
my $nt = Net::Twitter->new(legacy => 1, ssl => 0);
isa_ok $nt, 'Net::Twitter';
$nt = Net::Twitter->new(
ssl => 0,
legacy => 0,
username => 'homer',
password => 'doh!',
);
my $t = TestUA->new(1, $nt->ua);
# run 2 passes to ensure the first pass isn't changing internal state
for my $pass ( 1, 2 ) {
for my $test ( @tests ) {
my ($api_call, $args, $method, $path, $line) = @$test;
my %args;
if ( $api_call eq 'update' ) {
%args = ( source => 'twitterpm', status => @$args );
}
elsif ( @$args ) {
if ( ref $args->[0] ) {
%args = %{$args->[0]};
}
else {
@{args}{@{$nt->meta->get_method($api_call)->original_method->required}} = @$args;
}
}
ok $nt->$api_call(@$args), "[$pass] $api_call call";
# kludge: add the screen_name or message_id to the $t's arguments if either
# exists in the path
$t->add_id_arg($screen_name);
$t->add_id_arg($message_id);
is_deeply $t->args, \%args, "[$pass][line $line] $api_call args";
is $t->path, $path, "[$pass][line $line] $api_call path";
is $t->method, $method, "[$pass][line $line] $api_call method";
}
}
exit 0;
Something went wrong with that request. Please try again.