diff options
author | franck cuny <franck@lumberjaph.net> | 2009-11-26 18:11:34 +0100 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2009-11-26 18:11:34 +0100 |
commit | b8b8bb3d166081a02c85ce4cb4f7c28aca2f2166 (patch) | |
tree | e9aa3575e0c521c96510dd22bbf10c2f16405c9c /t/03_identica.t | |
parent | add error (diff) | |
download | moosex-net-api-b8b8bb3d166081a02c85ce4cb4f7c28aca2f2166.tar.gz |
add more tests
Diffstat (limited to 't/03_identica.t')
-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(); |