#!perl
use warnings;
use strict;
use Test::More;
use lib qw(t/lib);
eval 'use TestUA';
plan skip_all => 'LWP::UserAgent 5.819 required for tests' if $@;
plan tests => 5;
use_ok 'Net::Twitter';
{
my $nt = Net::Twitter->new(legacy => 0, identica => 1, username => 'me', password => 'secret');
my $t = TestUA->new(1, $nt->ua);
$t->response->content('"true"');
my $r = $nt->follows('night', 'day');
ok $r, 'string "true" is true';
$t->response->content('"false"');
$r = $nt->follows('night', 'day');
ok !$r, 'string "false" is false';
# and when they finally get it right:
$t->response->content('"true"');
$r = $nt->follows('night', 'day');
ok $r, 'bool true is true';
}
{
my $nt = Net::Twitter->new(traits => [qw/API::REST API::Search/], identica => 1);
like $nt->searchapiurl, qr/identi\.ca/, 'use identica url for search';
}