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
38
39
40
41
42
43
44
45
46
47
48
|
#! /usr/bin/perl -w
use Test;
use File::Spec;
use strict;
use lib '../..';
use Mail::MboxParser;
my $src = File::Spec->catfile('t', 'testbox');
BEGIN { plan tests => 28 };
my $mb = Mail::MboxParser->new($src);
my @mails;
for (0 .. $mb->nmsgs - 1) {
push @mails, $mb->get_message($_);
}
# 1
print "Testing num of messages...\n";
ok(scalar @mails, $mb->nmsgs);
# 2 - 9
print "Testing subjects...\n";
ok($mails[1]->header->{subject}, 'Welcome new user VPARSEVAL');
ok($mails[2]->header->{subject}, 'Welcome new user VPARSEVAL');
ok($mails[3]->header->{subject}, 'Password Update');
ok($mails[4]->header->{subject}, 'Notification from PAUSE');
ok($mails[5]->header->{subject},
'CPAN Upload: V/VP/VPARSEVAL/Mail-MboxParser-0.01.tar.gz');
ok($mails[6]->header->{subject}, 'Module submission Mail::MboxParser');
ok($mails[7]->header->{subject}, 'Module submission Mail::MboxParser');
ok($mails[8]->header->{subject}, 'Re: Mail::MboxParser');
# 10-25
print "Testing attachments...there should be none\n";
for my $msg (@mails[0..7]) {
ok($msg->num_entities, 1);
ok($msg->get_attachments, undef);
}
# 25-28
print "Testing attachments on multipart...\n";
ok($mails[8]->num_entities, 3);
ok($mails[8]->get_attachments);
ok($mails[8]->get_attachments('Plans'), 2);
|
