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
70
71
72
|
#!/usr/bin/perl -T
#
# Test destruction of (folder) messages
#
use strict;
use warnings;
use lib qw(. .. tests);
use Tools;
use Test::More tests => 58;
use Mail::Box::Mbox;
my @src = (folder => "=$fn", folderdir => 'folders');
#
# Destruct folder messages
#
my $folder = Mail::Box::Mbox->new
( @src
, lock_type => 'NONE'
);
ok(defined $folder, 'check success open folder');
exit 1 unless defined $folder;
my ($delayed, $read) = (0,0);
foreach my $msg ($folder->messages)
{ $msg->isDelayed ? $delayed++ : $read++;
}
ok($delayed, 'some messages are delayed');
ok($read, 'some messages are fully read');
foreach my $msg ($folder->messages)
{ $msg->destruct;
isa_ok($msg, 'Mail::Box::Message::Destructed', "msg ".$msg->seqnr);
}
isa_ok($folder->message(0), 'Mail::Box::Message::Destructed', 'first');
# some things still work
my $msg0 = $folder->message(0);
ok(!$msg0->isDeleted, 'destructed is not deleted');
ok($msg0->delete, 'delete is allowed');
ok($msg0->messageId, 'has message id');
$folder->close(write => 'NEVER');
#
# Destruct Mail::Message
#
my $msg = Mail::Message->read( <<MSG );
Subject: hi!
body
MSG
ok(defined $msg, 'constructed a Mail::Message');
is($msg->get('Subject'), "hi!", 'check headers read');
is($msg->body->string, "body\n", 'check body read');
my $alias = $msg;
$msg->destruct;
ok(!defined $msg, 'destruct removes link');
ok(defined $alias->body, 'body still exists');
$alias->destruct;
ok(!defined $alias, 'destruct removes link');
|
