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
|
use strict;
use warnings;
use Test::More;
use CiderWebmail::Test {login => 1};
use English qw(-no_match_vars);
$mech->follow_link_ok({ url_regex => qr{/compose} }, 'Compose a new message');
my $unix_time = time();
$mech->submit_form_ok({
with_fields => {
from => $ENV{TEST_MAILADDR},
to => $ENV{TEST_MAILADDR},
sent_folder => find_special_folder('sent'),
subject => 'movemessage-'.$unix_time,
body => 'movemessage',
},
});
$mech->get_ok('http://localhost/mailbox/INBOX?length=99999');
my (@messages) = $mech->find_all_links( text_regex => qr{\Amovemessage-$unix_time\z});
ok((@messages == 1), 'messages found');
$mech->get_ok( 'http://localhost/mailbox/INBOX/create_subfolder', 'open create testfolder');
$mech->submit_form_ok({
with_fields => {
name => 'testfolder-'.$unix_time,
},
});
my $testfolder = find_folder("testfolder-$unix_time");
ok(defined $testfolder, "found testfolder");
$mech->get_ok($messages[0]->url.'/move?target_folder='.$testfolder, "Move Message");
$mech->title_like(qr/INBOX/, 'got a folder view');
$mech->get_ok('http://localhost/mailbox/INBOX?length=99999');
@messages = $mech->find_all_links( text_regex => qr{\Amovemessage-$unix_time\z});
ok((@messages == 0), 'message gone from source folder');
$mech->get_ok("http://localhost/mailbox/$testfolder");
@messages = $mech->find_all_links( text_regex => qr{\Amovemessage-$unix_time\z});
ok((@messages == 1), 'message found in target folder');
$mech->get_ok("http://localhost/mailbox/$testfolder/delete");
$mech->get_ok('http://localhost/mailboxes');
$mech->content_lacks('testfolder-'.$unix_time);
cleanup_messages(["movemessage-$unix_time"]);
done_testing();
|
