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
|
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 => 'ajaxmessage-'.$unix_time,
body => 'ajaxmessage-body-'.$unix_time,
},
});
$mech->get_ok( 'http://localhost/mailbox/INBOX?layout=ajax&length=99999' );
my @messages = $mech->find_all_links( text_regex => qr{\Aajaxmessage-$unix_time\z});
$messages[0]->attrs->{id} =~ m/link_(\d+)/xms;
my $message_id = $1;
ok( (length($message_id) > 0), 'got message id');
xpath_test {
my ($tx_unread) = @_;
$tx_unread->unlike("//tr[\@id='message_$message_id']/\@class", qr/seen/, "message is unread" );
};
$mech->get_ok('http://localhost/mailbox/INBOX/'.$message_id.'?layout=ajax', 'open message');
$mech->content_like(qr/ajaxmessage-body-$unix_time/, 'message body there');
$mech->get_ok( 'http://localhost/mailbox/INBOX?layout=ajax&length=99999' );
xpath_test {
my ($tx_read) = @_;
$tx_read->like("//tr[\@id='message_$message_id']/\@class", qr/seen/, "message is read" );
};
cleanup_messages(["ajaxmessage-$unix_time"]);
done_testing();
|
