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
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
# -*- mode: cperl;-*-
use Test::More tests => 22;
use warnings;
use strict;
# Here, we're going to shoot messages through a set of things that can
# happen.
# First, we're going to send mesages to receive.
# To do so, we'll first send a message to submit,
# then send messages to the newly created bugnumber.
use IO::File;
use File::Temp qw(tempdir);
use Cwd qw(getcwd);
use Debbugs::MIME qw(create_mime_message);
use File::Basename qw(dirname basename);
use Test::WWW::Mechanize;
use HTTP::Status qw(RC_NOT_MODIFIED);
# The test functions are placed here to make things easier
use lib qw(t/lib);
use DebbugsTest qw(:all);
my %config = create_debbugs_configuration();
# create a bug
send_message(to=>'submit@bugs.something',
headers => [To => 'submit@bugs.something',
From => 'foo@bugs.something',
Subject => 'Submitting a bug',
],
body => <<EOF) or fail('Unable to send message');
Package: foo
Severity: normal
This is a silly bug which contains an unescaped From line.
From line
EOF
# test bugreport.cgi
# start up an HTTP::Server::Simple
my $bugreport_cgi_handler = sub {
# I do not understand why this is necessary.
$ENV{DEBBUGS_CONFIG_FILE} = "$config{config_dir}/debbugs_config";
my $fh;
open($fh,'-|',-e './cgi/version.cgi'? 'perl -I. -T ./cgi/bugreport.cgi' : 'perl -I. -T ../cgi/bugreport.cgi');
my $headers;
my $status = 200;
while (<$fh>) {
if (/^\s*$/ and $status) {
print "HTTP/1.1 $status OK\n";
print $headers;
$status = 0;
print $_;
} elsif ($status) {
$headers .= $_;
if (/^Status:\s*(\d+)/i) {
$status = $1;
}
} else {
print $_;
}
}
};
my $port = 11342;
ok(DebbugsTest::HTTPServer::fork_and_create_webserver($bugreport_cgi_handler,$port),
'forked HTTP::Server::Simple successfully');
my $mech = Test::WWW::Mechanize->new();
$mech->get_ok('http://localhost:'.$port.'/?bug=1',
'Page received ok');
ok($mech->content() =~ qr/\<title\>\#1.+Submitting a bug/i,
'Title of bug is submitting a bug');
my $etag = $mech->response->header('Etag');
$mech->get('http://localhost:'.$port.'/?bug=1',
'If-None-Match' => $etag);
is($mech->res->code, RC_NOT_MODIFIED,
'Not modified when the same ETag sent for bug');
$mech->get_ok('http://localhost:'.$port.'/?bug=1;mbox=yes',
'Page received ok');
ok($mech->content() =~ qr/Subject: Submitting a bug/i,
'Subject of bug maibox is right');
ok($mech->content() =~ qr/^From /m,
'Starts with a From appropriately');
ok($mech->content() =~ qr/^(>F|=46)rom line/m,
'From line escaped appropriately');
$mech->get_ok('http://localhost:'.$port.'/?bug=1;mboxmaint=yes',
'Page received ok');
ok($mech->content() !~ qr/[\x01\x02\x03\x05\x06\x07]/i,
'No unescaped states');
$etag = $mech->response->header('Etag');
$mech->get('http://localhost:'.$port.'/?bug=1;mboxmaint=yes',
'If-None-Match' => $etag);
is($mech->res->code, RC_NOT_MODIFIED,
'Not modified when the same ETag sent for bug maintmbox');
# now test the output of some control commands
my @control_commands =
(
reassign_foo => {command => 'reassign',
value => 'bar',
regex => qr{<strong>bug reassigned from package '<a href="pkgreport\.cgi\?package=foo">foo</a>' to '<a href="pkgreport\.cgi\?package=bar">bar</a>},
},
forwarded_foo => {command => 'forwarded',
value => 'https://foo.invalid/bugs?id=1',
regex => qr{<strong>Set bug forwarded-to-address to '<a href="https://foo\.invalid/bugs\?id=1">https://foo\.invalid/bugs\?id=1</a>'\.},
},
forwarded_foo_2 => {command => 'forwarded',
value => 'https://foo.example/bugs?id=1',
regex => qr{<strong>Changed bug forwarded-to-address to '<a href="https://foo\.example/bugs\?id=1">https://foo\.example/bugs\?id=1</a>' from '<a href="https://foo\.invalid/bugs\?id=1">https://foo\.invalid/bugs\?id=1</a>'\.},
},
clone => {command => 'clone',
value => '-1',
regex => qr{<strong>Bug <a href="bugreport.cgi\?bug=1">1</a> cloned as bug <a href="bugreport.cgi\?bug=2">2</a>},
},
);
while (my ($command,$control_command) = splice(@control_commands,0,2)) {
# just check to see that control doesn't explode
$control_command->{value} = " $control_command->{value}" if length $control_command->{value}
and $control_command->{value} !~ /^\s/;
send_message(to => 'control@bugs.something',
headers => [To => 'control@bugs.something',
From => 'foo@bugs.something',
Subject => "Munging a bug with $command",
],
body => <<EOF) or fail 'message to control@bugs.something failed';
debug 10
$control_command->{command} 1$control_command->{value}
thanks
EOF
;
# Now test that the output has changed accordingly
$mech->get_ok('http://localhost:'.$port.'/?bug=1',
'Page received ok');
like($mech->content(), $control_command->{regex},
'Page matches regex');
}
# Other tests for bugs in the page should be added here eventually
send_message(to => '1@bugs.something',
headers => [To => '1@bugs.something',
From => 'foo@bugs.something',
Subject => "Message with some links to linkify",
],
body => <<EOF) or fail 'message to 1@bugs.something failed';
This is a test message.
This is a link https://example.com/foo; which should not include the ;
This is a link https://example.com/foo;bar which should include the ;
EOF
$mech->get_ok('http://localhost:'.$port.'/?bug=1',
'Page received ok');
like($mech->content(), qr(href="https://example.com/foo;bar"),
'Link includes ; correctly');
like($mech->content(), qr(href="https://example.com/foo"),
'Link excludes trailing ;');
|
