diff options
Diffstat (limited to '')
-rw-r--r-- | t/03_identica.t | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/t/03_identica.t b/t/03_identica.t new file mode 100644 index 0000000..d50f9b8 --- /dev/null +++ b/t/03_identica.t @@ -0,0 +1,26 @@ +use strict; +use warnings; +use lib ('t/lib'); + +use Test::More; +use Identica; +use YAML::Syck; +use Try::Tiny; + +BEGIN { + plan skip_all => + 'set $ENV{IDENTICA_USER} and $ENV{IDENTICA_PWD} for this test' + unless $ENV{IDENTICA_USER} && $ENV{IDENTICA_PWD}; +} + +my ($obj, $res); + +ok $obj = Identica->new( + api_username => $ENV{IDENTICA_USER}, + api_password => $ENV{IDENTICA_PWD} +); + +ok $res = $obj->public_timeline; +ok $res = $obj->update_status( status => 'this is a test' ); + +done_testing(); |