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
|
use strict;
use warnings;
use Test::More;
use CiderWebmail::Test {login => 1};
use File::Spec;
use English qw(-no_match_vars);
$mech->follow_link_ok({ url_regex => qr{/compose} }, 'Compose a new message');
my $attachment_file = File::Spec->catfile( 't', 'testattachment.txt' );
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 => 'attachment-'.$unix_time,
body => 'attachment',
attachment => $attachment_file,
},
});
$mech->get( 'http://localhost/mailbox/INBOX?length=99999' );
my (@messages) = $mech->find_all_links( text_regex => qr{\Aattachment-$unix_time\z});
ok((@messages == 1), 'messages found');
$messages[0]->attrs->{id} =~ m/link_(\d+)/m;
my $message_id = $1;
ok( (length($message_id) > 0), 'got message id');
xpath_test {
my ($tx) = @_;
$tx->ok("//tr[\@id='message_$message_id']/td[\@class='icons']/img[\@class='attachment_icon']", "attachment icon is set" );
};
#attachment download
$mech->get_ok($messages[0]->url, 'open message');
$mech->follow_link_ok({ text_regex => qr{testattachment.txt} }, 'Open Attachment');
ok(($mech->content =~ m/testattachment-content/), 'verify attachment content');
#attachment download for forwarded message
$mech->get_ok($messages[0]->url.'/part/forward/root');
$mech->submit_form_ok({
with_fields => {
from => $ENV{TEST_MAILADDR},
to => $ENV{TEST_MAILADDR},
sent_folder => find_special_folder('sent'),
subject => 'attachmentforward-'.$unix_time,
body => 'attachmentforward',
},
}, 'forward message');
$mech->get_ok( 'http://localhost/mailbox/INBOX?length=99999' );
my @forw_messages = $mech->find_all_links( text_regex => qr{\Aattachmentforward-$unix_time\z});
ok((@forw_messages == 1), 'messages found');
$forw_messages[0]->attrs->{id} =~ m/link_(\d+)/m;
my $forw_message_id = $1;
ok( (length($forw_message_id) > 0), 'got forwarded message id');
xpath_test {
my ($tx_fwd) = @_;
$tx_fwd->not_ok("//tr[\@id='message_$forw_message_id']/td[\@class='icons']/img[\@class='attachment_icon']", "check that attachment icon is not set for forwarded message" );
};
#attachment download
$mech->get_ok($forw_messages[0]->url, 'open message');
#verify that we do not render the attachment content - we could render it because it is text/plain but do not because it's disposition is 'attachment'
$mech->content_lacks('testattachment-content', 'verify that we do not render the attachment content');
$mech->follow_link_ok({ text_regex => qr{testattachment.txt} }, 'Open Forwarded Attachment');
ok(($mech->content =~ m/testattachment-content/), 'verify attachment content');
cleanup_messages(["attachment-$unix_time", "attachmentforward-$unix_time"]);
done_testing();
|
