t/05 is good now

t/05-api_unreadcounts.t

@@ -1,17 +1,25 @@
 #!perl -T
 
-use Test::More tests => 6;
-use Env qw(PLURKAPIKEY PLURKUSER PLURKPASS);
+use Env qw(CONSUMER_KEY CONSUMER_SECRET ACCESS_TOKEN ACCESS_TOKEN_SECRET);
+use Test::More;
+if ($CONSUMER_KEY and $CONSUMER_SECRET) {
+    plan tests => 5;
+} else {
+    plan skip_all =>
+    "You must set the following environment variables: \n".
+    "CONSUMER_KEY/CONSUMER_SECRET\n".
+    "ACCESS_TOKEN/ACCESS_TOKEN_SECRET\n";
+}
 
 BEGIN {
 	use Net::Plurk;
-        my $api_key = $PLURKAPIKEY // "dKkIdUCoHo7vUDPjd3zE0bRvdm5a9sQi";
-        my $user = $PLURKUSER // 'nobody';
-        my $pass = $PLURKPASS // 'nopass';
-        my $p = Net::Plurk->new(api_key => $api_key);
-        my $profile = $p->login(user => $user, pass => $pass );
-        is($p->is_logged_in(), 1);
-        my $json = $p->api( path => '/Polling/getUnreadCount');
+	my $key = $CONSUMER_KEY;
+	my $secret = $CONSUMER_SECRET;
+	my $token = $ACCESS_TOKEN;
+	my $token_secret = $ACCESS_TOKEN_SECRET;
+	my $p = Net::Plurk->new(consumer_key => $key, consumer_secret => $secret);
+	$p->authorize(token => $token, token_secret => $token_secret);
+        my $json = $p->callAPI( '/Polling/getUnreadCount');
         isa_ok ($json, HASH);
         cmp_ok( $json->{all}, '>=', 0);
         cmp_ok( $json->{my}, '>=', 0);