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
|
#!perl -w
use strict;
use Test::More tests => 4;
use_ok("Email::Folder");
my $folder;
ok($folder = Email::Folder->new('t/testmaildir'));
my @messages = $folder->messages;
is(@messages, 10, "grabbed 10 messages");
my @subjects = sort map { $_->header('Subject') } @messages;
my @known = (
'R: [p5ml] karie kahimi binge...help needed',
'RE: [p5ml] Re: karie kahimi binge...help needed',
'Re: January\'s meeting',
'Re: January\'s meeting',
'Re: January\'s meeting',
'Re: [p5ml] karie kahimi binge...help needed',
'Re: [p5ml] karie kahimi binge...help needed',
'Re: [rt-users] Configuration Problem',
'[p5ml] Re: karie kahimi binge...help needed',
'[rt-users] Configuration Problem',
);
is_deeply(\@subjects, \@known, "they're the messages we expected");
|
