use strict;
use warnings;
use Test::More tests => 26;
use Test::Exception;
use constant METHODS => (
'new', 'server', 'show', 'edit', 'login',
'create', 'comment', 'correspond', 'merge_tickets', 'link_tickets',
'unlink_tickets', 'search', 'get_attachment_ids', 'get_attachment',
'get_transaction_ids', 'get_transaction', 'take', 'untake', 'steal',
'timeout', 'basic_auth_cb',
);
use RT::Client::REST;
my $rt;
lives_ok {
$rt = RT::Client::REST->new;
} 'RT::Client::REST instance created';
for my $method (METHODS) {
can_ok($rt, $method);
}
throws_ok {
$rt->login;
} 'RT::Client::REST::InvalidParameterValueException',
"requires 'username' and 'password' parameters";
throws_ok {
$rt->basic_auth_cb(1);
} 'RT::Client::REST::InvalidParameterValueException';
throws_ok {
$rt->basic_auth_cb({});
} 'RT::Client::REST::InvalidParameterValueException';
lives_ok {
$rt->basic_auth_cb(sub {});
};
# vim:ft=perl: