1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
use Test::More tests => 18;
use strict;
$^W = 1;
use_ok 'Email::Send';
can_ok 'Email::Send', 'plugins', 'mailer_available', 'mailer',
'mailer_args', 'message_modifier', 'send', 'all_mailers';
use_ok $_
for map { "Email::Send::$_" } qw(NNTP SMTP Qmail Sendmail);
can_ok $_, 'is_available', 'send'
for map { "Email::Send::$_" } qw(NNTP SMTP Qmail Sendmail);
my $mailer = Email::Send->new();
isa_ok $mailer, 'Email::Send';
ok ! $mailer->mailer, "it has no defined mailer";
ok ! @{$mailer->mailer_args}, "and no mailer args";
ok ! $mailer->message_modifier, "and no message modifier";
$mailer->mailer('SMTP');
$mailer->mailer_args([Host => 'localhost']);
$mailer->message_modifier(sub {1});
is $mailer->mailer, 'SMTP', "we've set its mailer to smtp";
is $mailer->mailer_args->[1], 'localhost', "and set a mailer arg";
is ref($mailer->message_modifier), 'CODE', "and a message modifier";
is $mailer->message_modifier->(), 1, "and the message modifier can be called";
|
