1#!/usr/bin/perl -w
2use strict;
3use warnings;
4use Test::More tests => 6;
5
6use MIME::Tools;
7
8use lib "./t";
9use Globby;
10
11use MIME::Parser;
12
13
14my $DIR = "./testout";
15((-d $DIR) && (-w $DIR)) or die "no output directory $DIR";
16unlink globby("$DIR/[a-z]*");
17
18my $parser = MIME::Parser->new();
19$parser->output_dir($DIR);
20
21my $data = <<END;
22MIME-Version: 1.0
23Content-Type: multipart/alternative; boundary="foo"
24
25--foo
26--foo
27--foo
28--foo--
29END
30
31my $entity = $parser->parse_data($data);
32ok($entity, 'Got an entity');
33is($entity->mime_type, 'multipart/alternative');
34is($entity->parts, 3, 'Got three parts');
35is($entity->parts(0)->mime_type, 'text/plain');
36is($entity->parts(1)->mime_type, 'text/plain');
37is($entity->parts(2)->mime_type, 'text/plain');
38
39