#!/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;