Permalink
Fetching contributors…
Cannot retrieve contributors at this time
77 lines (62 sloc) 1.92 KB
#!perl
use warnings;
use strict;
use Try::Tiny;
use Scalar::Util qw/blessed/;
use Test::More;
use JSON::MaybeXS qw/encode_json/;
use lib qw(t/lib);
eval 'use TestUA';
plan skip_all => 'LWP::UserAgent 5.819 required' if $@;
plan tests => 8;
use_ok 'Net::Twitter';
my $nt = Net::Twitter->new(ssl => 0, traits => [qw/API::REST API::Search RateLimit InflateObjects/]);
my $datetime_parser = do {
no warnings 'once';
$Net::Twitter::Role::API::REST::DATETIME_PARSER;
};
my $dt = DateTime->now;
$dt->subtract(minutes => 6);
my $t = TestUA->new(1, $nt->ua);
$t->response->content(encode_json([
{
text => 'Hello, twittersphere!',
id => 1234,
created_at => $datetime_parser->format_datetime($dt),
},
{
text => 'Too old',
id => 5678,
created_at => $datetime_parser->format_datetime($dt - DateTime::Duration->new(days => 2)),
},
]));
my $r = $nt->friends_timeline;
ok ref $r eq 'ARRAY', 'got an ArrayRef';
cmp_ok @$r, '==', 2, 'got 2 statuses';
$r = $nt->friends_timeline({ since => $dt - DateTime::Duration->new(days => 1) });
cmp_ok @$r, '==', 1, 'filtered with DateTime';
$r = $nt->friends_timeline({ since => time - 3600*25 });
cmp_ok @$r, '==', 1, 'filtered with epoch';
$r = $nt->friends_timeline({ since => $datetime_parser->format_datetime(
$dt - DateTime::Duration->new(hours => 25)) });
cmp_ok @$r, '==', 1, 'filtered with string in Twitter timestamp format';
my $test = 'dies on invalid since';
try {
$r = $nt->friends_timeline({ since => 'not a date' });
fail $test;
}
catch { pass $test };
$nt = Net::Twitter->new(ssl => 0, traits => [qw/API::Search API::REST/]);
$nt->ua->add_handler(request_send => sub {
my $res = HTTP::Response->new(200);
$res->content('{"test":"done"}');
return $res;
});
$test = 'YYYY-MM-DD';
try {
$r = $nt->search({ q => 'perl', since => '2009-10-05' });
pass $test;
}
catch {
fail "$test: $_";
};