#!perl
subtest
'on new()'
=>
sub
{
eval
{ WebService::ImKayac::Simple->new() };
ok $@,
"Dies when user name doesn't exist"
;
eval
{
WebService::ImKayac::Simple(
user
=>
'foo'
,
type
=>
'bar'
,
);
};
ok $@,
"Dies when invalid type is given"
;
subtest
"Dies when password doesn't exist"
=>
sub
{
eval
{
WebService::ImKayac::Simple(
user
=>
'foo'
,
type
=>
'password'
,
);
};
ok $@,
"Type is 'password'"
;
eval
{
WebService::ImKayac::Simple(
user
=>
'foo'
,
type
=>
'secret'
,
);
};
ok $@,
"Type is 'secret'"
;
};
};
subtest
'on send()'
=>
sub
{
my
$im
= WebService::ImKayac::Simple->new(
user
=>
'foo'
);
eval
{
$im
->
send
() };
ok $@,
"Message doesn't exist"
;
};
done_testing;