#!perl
use strict;
use utf8;
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;