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
|
#!/usr/bin/env perl
#
# Test the folder manager
#
use strict;
use warnings;
use lib qw(. .. tests);
use Tools;
use Test::More tests => 14;
use File::Spec;
use Mail::Box::Manager;
my $new = File::Spec->catfile('folders', 'create');
unlink $new;
my $manager = Mail::Box::Manager->new
( log => 'NOTICES'
, trace => 'NONE'
);
my $folder = $manager->open
( folder => $src
, lock_type => 'NONE'
, extract => 'LAZY'
);
ok(defined $folder, 'open folder');
isa_ok($folder, 'Mail::Box::Mbox');
my $second = $manager->open
( folder => $src
, lock_type => 'NONE'
);
ok(!defined $second, 'open same folder fails');
my @errors = $manager->report('ERRORS');
cmp_ok(@errors, "==", 1, 'mgr noticed double');
$errors[-1] =~ s#[\\/]mbox\.win#/mbox.src#g; # Windows
is($errors[-1], "Folder folders/mbox.src is already open.");
cmp_ok($manager->openFolders, "==", 1, 'only one folder open');
undef $second;
cmp_ok($manager->openFolders, "==", 1, 'second closed, still one open');
my $n = $manager->open
( folder => $new
, folderdir => 't'
, type => 'mbox'
, lock_type => 'NONE'
);
ok(! -f $new, 'folder file does not exist');
ok(! defined $n, 'open non-ex does not succeed');
my @warnings = $manager->report('WARNINGS');
cmp_ok(@warnings, "==", 1, 'new warning');
$warnings[-1] =~ s#\\#/#g; # Windows
is($warnings[-1], "Folder does not exist, failed opening mbox folder folders/create.");
$manager->log('WARNINGS'); # back to default reporting.
$manager->trace('WARNINGS');
my $p = $manager->open
( folder => $new
, lock_type => 'NONE'
, type => 'mbox'
, create => 1
, access => 'w'
);
ok(defined $p, 'open non-existing with create');
ok(-f $new, 'new folder created');
ok(-z $new, 'new folder is empty');
unlink $new;
exit 0;
|
