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
|
use strict;
use warnings;
use Test::More;
use CiderWebmail::Test {login => 1};
use English qw(-no_match_vars);
$mech->get_ok('http://localhost/mailboxes');
my $sent_folder = find_special_folder('sent');
if(defined $sent_folder) {
like($sent_folder, qr/Sent/, "Found Sent folder '$sent_folder'");
done_testing();
exit;
} else {
$mech->get_ok('http://localhost/mailboxes');
#this is not perfect but works with default dovecot&courier installations until we finish support for special use mailboxes
$mech->follow_link_ok({ url_regex => qr{INBOX/create_subfolder} }, 'Follow create subfolder link');
$mech->submit_form_ok({
with_fields => {
name => 'Sent',
},
});
$mech->get_ok('http://localhost/mailboxes');
$sent_folder = find_special_folder('sent');
like($sent_folder, qr/Sent/, "Verified new Sent folder '$sent_folder'");
}
done_testing();
|
