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
|
#!perl
use strict;
use warnings;
use Test::More tests => 5;
use Email::Abstract;
use Email::Simple;
use Email::Sender::Transport;
my $email = <<'EOF';
To: Casey West <casey@example.com>
From: Casey West <casey@example.net>
Subject: This should never show up in my inbox
blah blah blah
EOF
# SIMPLE
my $simple = Email::Simple->new($email);
my $prep_simple = Email::Sender::Transport->prepare_email($simple);
is($prep_simple->as_string, $simple->as_string, 'simple - strings same');
# ABSTRACT
my $abstract = Email::Abstract->new($email);
my $prep_abstract = Email::Sender::Transport->prepare_email($abstract);
is($prep_abstract->as_string, $abstract->as_string, 'abs - strings same');
ok($abstract == $prep_abstract, 'Email::Abstract object is not re-rewrapped');
# STRING
my $prep_string = Email::Sender::Transport->prepare_email($email);
is($prep_string->as_string, $email, 'string - strings same');
# STRING REF
my $copy = $email;
my $prep_string_ref = Email::Sender::Transport->prepare_email(\$copy);
is($prep_string_ref->as_string, $email, 'stringref - strings same');
|
