From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

CWEST / Email-MIME-Modifier-1.3 / t / ct_attrs.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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73

              
use Test::More tests => 10;
use_ok 'Email::MIME';
use_ok 'Email::MIME::Modifier';
use_ok 'Email::MIME::ContentType';
my $email = Email::MIME->new(<<__MESSAGE__);
Content-Type: text/plain; charset="us-ascii"
__MESSAGE__
is_deeply( parse_content_type($email->header('Content-Type')), {
    discrete => 'text',
    composite => 'plain',
    attributes => {
        charset => 'us-ascii',
    },
}, 'default ct worked' );
$email->charset_set( 'utf8' );
is_deeply( parse_content_type($email->header('Content-Type')), {
    discrete => 'text',
    composite => 'plain',
    attributes => {
        charset => 'utf8',
    },
}, 'ct with new charset worked' );
$email->charset_set( undef );
is_deeply( parse_content_type($email->header('Content-Type')), {
    discrete => 'text',
    composite => 'plain',
    attributes => {
    },
}, 'ct with no charset worked' );
$email->format_set( 'flowed' );
is_deeply( parse_content_type($email->header('Content-Type')), {
    discrete => 'text',
    composite => 'plain',
    attributes => {
        format => 'flowed',
    },
}, 'ct with format worked' );
$email->name_set( 'foo.txt' );
is_deeply( parse_content_type($email->header('Content-Type')), {
    discrete => 'text',
    composite => 'plain',
    attributes => {
        format => 'flowed',
        name => 'foo.txt',
    },
}, 'ct with name worked' );
is $email->header('Content-Type'),
    'text/plain; format="flowed"; name="foo.txt"',
    'ct format is correct';
$email->boundary_set( 'marker' );
is_deeply( parse_content_type($email->header('Content-Type')), {
    discrete => 'text',
    composite => 'plain',
    attributes => {
        boundary => 'marker',
        format => 'flowed',
        name => 'foo.txt',
    },
}, 'ct with boundary worked' );