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 => 2;
use strict;
$^W =1;
use Email::Send;
use Email::Simple;
{
my $message = Email::Simple->new(<<'__MESSAGE__');
To: me@myhost.com
From: you@yourhost.com
Subject: Test
Testing this thing out.
__MESSAGE__
send('Test', $message, 1, 2, 3);
my ($deliveries) = Email::Send::Test->deliveries;
my $test_message = $deliveries->[1];
is_deeply(
$deliveries->[2],
[ 1, 2, 3 ],
"args passed in properly",
);
is $test_message->as_string, $message->as_string, 'sent properly';
}
|
