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
|
#!/usr/bin/env perl
#
# Test access to folders using ties.
#
use strict;
use warnings;
use lib qw(. .. tests);
use Tools;
use Test::More tests => 13;
use Mail::Box::Mbox;
use Mail::Box::Tie::ARRAY;
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);
cmp_ok($folder->messages, "==", 45);
tie my(@folder), 'Mail::Box::Tie::ARRAY', $folder;
cmp_ok(@folder , "==", 45);
is($folder->message(4), $folder[4]);
ok(! $folder->message(2)->deleted);
$folder[2]->delete;
ok($folder->message(2)->deleted);
cmp_ok(@folder , "==", 45);
ok(! $folder->message(3)->deleted);
my $d3 = delete $folder[3];
ok(defined $d3);
ok($folder->message(3)->deleted);
# Double messages will not be added.
push @folder, $folder[1]->clone;
cmp_ok(@folder , "==", 45);
# Different message, however, will be added.
push @folder, Mail::Message->build(data => []);
cmp_ok($folder->messages , "==", 46);
cmp_ok(@folder , "==", 46);
$folder->close(write => 'NEVER');
exit 0;
|
