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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
use strict;
use warnings;
use Test::More;
use CiderWebmail::Test {login => 1};
use Email::Address::XS;
use English qw(-no_match_vars);
$mech->get_ok('http://localhost/mailbox/INBOX/compose');
my $unix_time = time();
my $sent_folder = find_special_folder('sent'),();
$mech->submit_form(
with_fields => {
from => $ENV{TEST_MAILADDR},
to => $ENV{TEST_MAILADDR},
sent_folder => $sent_folder,
subject => 'messagehandling-'.$unix_time,
body => 'messagehandling',
},
);
$mech->get( 'http://localhost/mailbox/INBOX?length=99999' );
# Find all message links:
# <a href="http://localhost/mailbox/INBOX/27668" onclick="return false" id="link_27668">
my @inbox_links = $mech->find_all_links(id_regex => qr{\Alink_\d+\z});
$mech->follow_link_ok({ url_regex => qr{/mailbox/?.*/$sent_folder} }, 'Open sent folder');
my @sent_links = $mech->find_all_links(id_regex => qr{\Alink_\d+\z});
#check if we found *any* links - we should detect at least one otherwise something major is broken
#most other checks depend on this so bail out in case this failes
if (@inbox_links == 0) { BAIL_OUT("no links detected in INBOX folder"); }
if (@sent_links == 0) { BAIL_OUT("no links detected in Sent folder"); }
for my $link (@sent_links, @inbox_links) {
$mech->get_ok($link->url);
$mech->follow_link_ok({ url_regex => qr{http://localhost/.*/reply/sender/(\d+|root)\z} }, "replying");
# check if address fields are filled like:
# <input value="johann.aglas@atikon.com" name="to">
# <input value="ss@atikon.com" name="from">
check_email($mech, 'to');
check_email($mech, 'from', 1);
$mech->get_ok($link->url);
$mech->follow_link_ok({ url_regex => qr{http://localhost/.*/forward/(\d+|root)\z} }, "forwarding");
check_email($mech, 'from', 1);
$mech->get_ok($link->url);
$mech->follow_link_ok({ url_regex => qr{http://localhost/.*/reply/all/(\d+|root)\z} }, "reply to all");
check_email($mech, 'to');
check_email($mech, 'from', 1);
$mech->get_ok($link->url);
$mech->follow_link_ok({ url_regex => qr{/view_source} }, 'view source');
$mech->get_ok($link->url);
if (my ($list_reply_url) = $mech->find_all_links(url_regex => qr{http://localhost/.*/reply/list/(\d+|root)\z})) {
$mech->get_ok($list_reply_url, 'open list reply url');
check_email($mech, 'to');
check_email($mech, 'from', 1);
}
my @attachments = $mech->find_all_links(url_regex => qr{http://localhost/.*/attachment/\d+});
foreach(@attachments) {
$mech->get_ok($_->url, 'open attachment');
}
$mech->get_ok($link->url);
my @sendto_links = $mech->find_all_links(url_regex => qr{http://localhost/.*/compose/?\?to=[a-z]});
foreach(@sendto_links) {
$mech->get_ok($_->url, 'sendto');
check_email($mech, 'from');
check_email($mech, 'to', 1);
}
$mech->get_ok($link->url);
my @header_links = $mech->find_all_links(url_regex => qr{http://localhost/.*/header/.*});
foreach(@header_links) {
$mech->get_ok($_->url, 'header');
#every message should have a content-type header
$mech->content_like(qr/Content\-Type:\s/i, 'contains content-type header');
}
$mech->get_ok($link->url);
my @render_links = $mech->find_all_links(url_regex => qr{http://localhost/.*/render/.*});
foreach(@render_links) {
$mech->get_ok($_->url, "Fetch ".$_->url);
#TODO we now generate /render/ urls for iframe content - no download links in there
#$mech->content_like(qr!part/download!, 'found download link');
}
}
cleanup_messages(["messagehandling-$unix_time"]);
sub check_email {
my ($mech, $field, $empty) = @_;
my $value = $mech->value(lc $field);
if ($empty and !$value) {
pass($mech->uri . ": '$field' field is empty");
} else {
ok(Email::Address::XS->parse($value)->is_valid(), $mech->uri . ": '$field' field contains an email address");
}
}
done_testing;
|
