use Mail::Folder::Emaul;
$folderdir='../testfolders';
sub okay_if { print(($_[1] ? "ok $_[0]\n" : "not ok $_[0]\n")) }
sub full_folder { return "$folderdir/emaul_1"; }
sub empty_folder { return "$folderdir/emaul_empty"; }
sub seed_folder { return "$folderdir/emaul_seed"; }
sub init_emaul_test {
my $dir;
for $dir ($folderdir, seed_folder()) {
(-e $dir) || die("$dir doesn't exist\n");
(-d $dir) || die("$dir isn't a directory\n");
(-r $dir) || die("$dir isn't readable\n");
}
chmod(0755, full_folder());
system('rm -rf ' . full_folder() . ' ' . empty_folder());
mkdir(full_folder(), 0755);
system('cp ' . seed_folder() . "/[0-9]* " . full_folder());
system('cp ' . seed_folder() . '/.msg_labels ' . full_folder());
system('echo 1 >' . full_folder() . '/.current_msg');
chmod(0644, full_folder() . '/.msg_labels');
}
init_emaul_test();
1;