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
|
#!perl
# vim:ft=perl
use strict;
use warnings;
use Test::More 'no_plan';
use Email::MIME::Encodings;
use MIME::Types;
use_ok("Email::MIME");
my $txt_ext = join '|', MIME::Types->new->type('text/plain')->extensions;
open IN, "t/Mail/mail-2" or die $!;
undef $/;
my $string = <IN>;
my $obj = Email::MIME->new($string);
isa_ok($obj, "Email::MIME");
is($obj->debug_structure,<<EOF);
+ multipart/related; boundary="----=_NextPart_000_0001_01C3D13C.8846CC50"
+ multipart/alternative; boundary="----=_NextPart_001_0002_01C3D13C.884B8740"
+ text/plain; charset="us-ascii"
+ text/html; charset="us-ascii"
+ application/octet-stream; name="image001.gif"
EOF
my @parts = ($obj->parts)[0]->parts;
my $filename = $parts[0]->filename(1);
like($filename, qr/attachment-\d+-0\.(?:$txt_ext)/, "Filename correct");
my $filename2 = $parts[1]->filename(1);
like($filename2, qr/attachment-\d+-1\.html/, "Filename correct");
is($filename,$parts[0]->filename(1), "Filename consistent");
my $image = ($obj->parts)[1];
is( $image->filename, "image001.gif", "got the image chunk" );
unlike( $image->body_raw, qr{NextPart}, "and not the epilogue" );
|
