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
|
use strict;
use warnings;
use Test::More tests => 2;
use Test::Deep;
use MooseX::Types::Email qw/EmailMessages/;
my $valid = <<'VALID';
From: example@example.com
To: example@example.com
Subject: test
Date: Tue Oct 20 21:57:31 2009
a body
VALID
my $es = Email::Simple->new($valid);
ok(
EmailMessages->check([ $es ]),
'example list of email(s) is an ok list of emails',
);
like(
EmailMessages->validate([ $valid ]),
qr/something Email::Abstract recognizes/,
'validation fails, as list of strings are not valid email bodies',
);
|
