CWEST / Email-MIME-Modifier-1.2 / t / encoding.t 

            

              
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
54
55

              
use Test::More qw[no_plan];
use_ok 'Email::MIME';
use_ok 'Email::MIME::Modifier';
my $email = Email::MIME->new(<<__MESSAGE__);
Content-Transfer-Encoding: 7bit
Content-Type: text/plain
Hello World!
I like you!
__MESSAGE__
is $email->body, qq[Hello World!\nI like you!\n], 'plain works';
is $email->body_raw, qq[Hello World!\nI like you!\n], 'plain raw works';
is $email->header('Content-Transfer-Encoding'), '7bit', 'plain encoding works';
$email->encoding_set('base64');
is $email->body, qq[Hello World!\nI like you!\n], 'base64 works';
is $email->body_raw, qq[SGVsbG8gV29ybGQhCkkgbGlrZSB5b3UhCg==\n], 'base64 raw works';
is $email->header('Content-Transfer-Encoding'), 'base64', 'base64 encoding works';
$email->encoding_set('binary');
is $email->body, qq[Hello World!\nI like you!\n], 'binary works';
is $email->body_raw, qq[Hello World!\nI like you!\n], 'binary raw works';
is $email->header('Content-Transfer-Encoding'), 'binary', 'binary encoding works';
my $long_line = 'Long line! ' x 100;
$email->encoding_set('quoted-printable');
$email->body_set(<<__MESSAGE__);
$long_line
__MESSAGE__
is $email->body, qq[$long_line\n], 'quoted-printable + body_set works';
is $email->body_raw, <<__RAW__, 'quoted-printable + body_set raw works';
Long line! Long line! Long line! Long line! Long line! Long line! Long line=
! Long line! Long line! Long line! Long line! Long line! Long line! Long li=
ne! Long line! Long line! Long line! Long line! Long line! Long line! Long =
line! Long line! Long line! Long line! Long line! Long line! Long line! Lon=
g line! Long line! Long line! Long line! Long line! Long line! Long line! L=
ong line! Long line! Long line! Long line! Long line! Long line! Long line!=
 Long line! Long line! Long line! Long line! Long line! Long line! Long lin=
e! Long line! Long line! Long line! Long line! Long line! Long line! Long l=
ine! Long line! Long line! Long line! Long line! Long line! Long line! Long=
 line! Long line! Long line! Long line! Long line! Long line! Long line! Lo=
ng line! Long line! Long line! Long line! Long line! Long line! Long line! =
Long line! Long line! Long line! Long line! Long line! Long line! Long line=
! Long line! Long line! Long line! Long line! Long line! Long line! Long li=
ne! Long line! Long line! Long line! Long line! Long line! Long line! Long =
line! Long line! Long line! Long line! Long line!=20
__RAW__
is $email->header('Content-Transfer-Encoding'), 'quoted-printable', 'quoted-printble + body_set encoding works';