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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
#!/usr/bin/env perl
#
# Test reading of dbx folders.
#
use strict;
use warnings;
use lib qw(. .. tests);
use Tools;
use Test::More;
use File::Compare;
use File::Temp qw(tempdir tempfile);
BEGIN
{
eval { require Mail::Box::Dbx };
if($@ || Mail::Box::Dbx->type ne 'dbx')
{ plan(skip_all => 'Mail::Box::Dbx is not installed');
exit 0;
}
elsif(not (-d '45dbx/testfolders' || -d 'tests/45dbx/testfolders'))
{ plan(skip_all => 'dbx test folders are not distributed');
exit 0;
}
plan tests => 22;
}
my $test = 'MBOX'; # folder to copy to
#my $test = 'MH';
my $temp = 'dbxtest';
sub be_sure_its_clean()
{
if($test eq 'MH') { clean_dir $temp }
else
{ unlink $temp;
clean_dir "$temp.d";
}
}
be_sure_its_clean;
my @src = (folderdir => '45dbx/testfolders');
ok(Mail::Box::Dbx->foundIn('Folder.dbx'), 'check foundIn');
ok(!Mail::Box::Dbx->foundIn('Folder.mbox'), 'check foundIn');
#
# The folder is read.
#
my $folder = Mail::Box::Dbx->new
( @src
, lock_type => 'NONE'
, extract => 'ALWAYS'
);
ok(defined $folder, 'check success open folder');
exit 1 unless defined $folder;
ok(! $folder->isModified);
is($folder->organization, 'FILE', 'folder organization FILE');
cmp_ok($folder->messages , "==", 0, 'found no messages');
my @subf = $folder->listSubFolders;
cmp_ok(@subf, '==', 9493, 'many subfolders');
@subf = $folder->listSubFolders(check => 1);
cmp_ok(@subf, '==', 6, 'few real subfolders');
@subf = $folder->listSubFolders(skip_empty => 1);
cmp_ok(@subf, '==', 5, 'few filled subfolders');
# get a subfolder
my $comp = $folder->openSubFolder('comp.lang.perl.misc');
ok(defined $comp, 'open large subfolder');
cmp_ok($comp->messages, '==', 300, '300 messages!');
my $message = $comp->message(10);
ok($message->head->isDelayed, 'delayed head');
ok($message->body->isDelayed, 'delayed body');
is($message->subject, 'search and replace problem', 'subject');
ok(! $message->head->isDelayed, 'realized head');
ok(! $message->body->isDelayed, 'realized body');
ok(! $folder->isModified);
#$message->print;
my $out;
if($test eq 'MH')
{ require Mail::Box::MH;
$out = Mail::Box::MH->new(folder => $temp, create => 1,
access => 'w');
}
else
{ require Mail::Box::Mbox;
$out = Mail::Box::Mbox->new(folder => $temp, create => 1,
access => 'w', log => 'DEBUG');
}
die "Cannot create temporary folder $temp: $!\n" unless defined $out;
ok($folder->copyTo($out), "Copy succesful");
cmp_ok(scalar $out->messages, '==', scalar $folder->messages);
cmp_ok(scalar $out->messages, '==', 0);
ok(!$folder->isModified);
ok(!$comp->isModified);
$comp->close;
$out->close;
$folder->close;
be_sure_its_clean;
exit 0;
|
