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 Test::More tests => 2;
use MIME::Parser;
open(IN, '<testmsgs/simple.msg');
my $data = do { local $/; <IN> };
close(IN);
my $data_with_crlf = $data;
# This one MUST have CRLF
$data_with_crlf =~ s/\r\n|\n\r|\n|\r/\r\n/g;
# This one MUST NOT have CRLF
$data =~ s/\r\n|\n\r|\n|\r/\n/g;
my $parser = MIME::Parser->new();
$parser->output_to_core(1);
my $entity = $parser->parse_data($data);
my $entity_crlf = $parser->parse_data($data_with_crlf);
is ($entity->head->get('Subject', 0),
$entity_crlf->head->get('Subject', 0),
'Headers unchanged by line-ending conventions');
is ($entity->head->get('Subject', 0), 'Request for Leave' . "\n",
'Got expected subject');
#print STDERR "\n\nMIME::tools version is " . $MIME::Tools::VERSION . "\n\n";
|
