use strict; use Test::More; use JIRA::Client::REST; if(!$ENV{JIRA_CLIENT_REST_URL}) { plan skip_all => 'Set JIRA_CLIENT_REST_URL'; } my $client = JIRA::Client::REST->new( username => $ENV{JIRA_CLIENT_REST_USER}, password => $ENV{JIRA_CLIENT_REST_PASS}, url => $ENV{JIRA_CLIENT_REST_URL}, debug => 1 ); my $issue = $client->get_issue('TESTING-39'); cmp_ok($issue->body->{fields}->{priority}->{value}->{name}, 'eq', 'Minor', 'get_issue'); my $trans = $client->get_issue_transitions('TESTING-39'); cmp_ok($trans->body->{761}->{name}, 'eq', 'Stop Progress', 'get_issue_transitions'); my $votes = $client->get_issue_votes('TESTING-39'); cmp_ok($votes->body->{votes}, '==', 0, 'get_issue_votes'); cmp_ok($client->vote_for_issue('TESTING-1')->status, 'eq', 204, 'vote_for_issue'); cmp_ok($client->unvote_for_issue('TESTING-1')->status, 'eq', 204, 'vote_for_issue'); my $watchers = $client->get_issue_watchers('TESTING-39'); cmp_ok($watchers->body->{watchCount}, '==', 0, 'get_issue_watchers'); cmp_ok($client->watch_issue('TESTING-1', 'cory.watson')->status, '==', 204, 'watch_issue'); cmp_ok($client->unwatch_issue('TESTING-1', 'cory.watson')->status, '==', 204, 'unwatch_issue'); done_testing;