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
|
#!/usr/bin/perl
use strict;
use warnings;
use MIME::Lite;
use Test::More tests => 3;
my $msg = MIME::Lite->new( Type => "multipart/digest" );
$msg->attr( 'MIME-Version' => 'qqq' );
my $str = $msg->as_string;
like(
$str,
qr/MIME-Version: qqq/,
'"MIME-Version" header has been set to qqq'
);
unlike(
$str,
qr/MIME-Version: 1\.0/,
'default header "MIME-Version: 1.0" is no longer found'
);
is(
$str =~ s/MIME-Version: /counted/g,
1,
'only one MIME-Version header present',
);
|
