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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
#!/usr/bin/env perl
#
# Test access to folders using ties on hashes.
#
use strict;
use warnings;
use lib qw(. .. tests);
use Tools;
use Test::More tests => 101;
use Mail::Box::Mbox;
use Mail::Box::Tie::HASH;
use Mail::Message::Construct;
#
# The folder is read.
#
my $folder = new Mail::Box::Mbox
( folder => $src
, folderdir => 't'
, lock_type => 'NONE'
, extract => 'ALWAYS'
, access => 'rw'
);
ok(defined $folder);
tie my(%folder), 'Mail::Box::Tie::HASH', $folder;
cmp_ok(keys %folder , "==", 45);
ok(! defined $folder{not_existing});
my @keys = keys %folder;
foreach (@keys)
{ ok(defined $folder{$_});
my $msg = $folder{$_};
is($folder{$_}->messageID, $_);
}
my $msg = $folder->message(4);
my $msgid = $msg->messageID;
is($msg, $folder{$msgid});
# delete $folder[2]; works for 5.6, but not for 5.5
ok(!$folder->message(4)->deleted);
cmp_ok(keys %folder , "==", 45);
$folder{$msgid}->delete;
ok($folder->message(4)->deleted);
cmp_ok(keys %folder , "==", 44);
# Double messages will not be added.
{ no warnings 'uninitialized';
$folder{ (undef) } = $folder{$msgid}->clone;
}
cmp_ok(keys %folder , "==", 44);
# Different message, however, will be added.
my $newmsg = Mail::Message->build(data => [ 'empty' ]);
$folder{undef} = $newmsg;
cmp_ok($folder->messages , "==", 46);
cmp_ok(keys %folder , "==", 45);
$folder->close(write => 'NEVER');
exit 0;
|
