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 strict;
use warnings;
use Test::More tests => 2;
use MooseX::Types::Email qw/EmailMessage/;
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(
EmailMessage->check($es),
'example email is an ok email',
);
like(
EmailMessage->validate($valid),
qr/something Email::Abstract recognizes/,
'validation fails, as string is not a valid email body',
);
|
