File: 03mh.t

package info (click to toggle)
libemail-folder-perl 0.860-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 348 kB
  • sloc: perl: 632; makefile: 2
file content (23 lines) | stat: -rw-r--r-- 534 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
#!perl -w
use strict;
use Test::More tests => 4;

use_ok("Email::Folder");

my $folder;
ok($folder = Email::Folder->new('t/testmh/.'));


my @messages = $folder->messages;
is(@messages, 4, "grabbed 4 messages");

my @subjects = sort map { $_->header('Subject') }  @messages;

my @known = (
             'Alfa bravo charlie delta',
             'Echo foxtrot gulf hotel',
             'India juliet kilo lima',
             'Mike november oscar popa'
            );

is_deeply(\@subjects, \@known, "they're the messages we expected");