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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
use Test::More;
use strict;
$^W = 1;
use Email::Send::Test;
use Email::Send 'Test';
plan skip_all => "Email::Abstract required for these tests"
unless eval "use Email::Abstract; 1";
my $tests = 3;
my $message;
if (eval { require Mail::Internet; }) {
plan tests => $tests;
$message = Mail::Internet->new(
Header => Mail::Header->new([
"From: your mom\n",
"To: your dad\n",
]),
Body => [ "This is a message\n" ],
);
isa_ok($message, 'Mail::Internet');
} elsif (eval { require MIME::Entity }) {
plan tests => $tests;
$message = MIME::Entity->build(
From => 'me@myhost.com',
To => 'you@yourhost.com',
Subject => "Hello, nurse!",
Data => "This is a message\n",
);
isa_ok($message, 'MIME::Entity');
} else {
plan skip_all => "these tests require Mail::Internet or MIME::Entity";
}
send Test => $message;
my @emails = Email::Send::Test->emails;
is(@emails, 1, "we delivered the non-Simple message");
like(
$emails[0]->body,
qr/This is a message/,
"the delivered message looks like what we send",
);
|
