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