]> git.donarmstrong.com Git - debbugs.git/blob - t/06_mail_handling.t
Use PT|passthrough redirects for ^/([0-9]+)$ for bugreport.cgi & ^/([^/]+)$ for pkgre...
[debbugs.git] / t / 06_mail_handling.t
1 # -*- mode: cperl;-*-
2 # $Id: 05_mail.t,v 1.1 2005/08/17 21:46:17 don Exp $
3
4 use Test::More tests => 126;
5
6 use warnings;
7 use strict;
8
9 # Here, we're going to shoot messages through a set of things that can
10 # happen.
11
12 # First, we're going to send mesages to receive.
13 # To do so, we'll first send a message to submit,
14 # then send messages to the newly created bugnumber.
15
16 use IO::File;
17 use File::Temp qw(tempdir);
18 use Cwd qw(getcwd);
19 use Debbugs::MIME qw(create_mime_message);
20 use File::Basename qw(dirname basename);
21 # The test functions are placed here to make things easier
22 use lib qw(t/lib);
23 use DebbugsTest qw(:all);
24 use Data::Dumper;
25 use Encode qw(decode encode);
26
27 # HTTP::Server:::Simple defines a SIG{CHLD} handler that breaks system; undef it here.
28 $SIG{CHLD} = sub {};
29 my %config = create_debbugs_configuration();
30
31
32 my $sendmail_dir = $config{sendmail_dir};
33 my $spool_dir = $config{spool_dir};
34 my $config_dir = $config{config_dir};
35
36
37
38 # We're going to use create mime message to create these messages, and
39 # then just send them to receive.
40
41 send_message(to=>'submit@bugs.something',
42              headers => [To   => 'submit@bugs.something',
43                          From => 'foo@bugs.something',
44                          Subject => 'Submiting a bug',
45                         ],
46              body => <<EOF) or fail('Unable to send message');
47 Package: foo
48 Severity: normal
49
50 This is a silly bug
51 EOF
52
53 # now we check to see that we have a bug, and nextnumber has been incremented
54 ok(-e "$spool_dir/db-h/01/1.log",'log file created');
55 ok(-e "$spool_dir/db-h/01/1.summary",'sumary file created');
56 ok(-e "$spool_dir/db-h/01/1.status",'status file created');
57 ok(-e "$spool_dir/db-h/01/1.report",'report file created');
58
59 # next, we check to see that (at least) the proper messages have been
60 # sent out. 1) ack to submitter 2) mail to maintainer
61
62 # This keeps track of the previous size of the sendmail directory
63 my $SD_SIZE = 0;
64 $SD_SIZE =
65     num_messages_sent($SD_SIZE,2,
66                       $sendmail_dir,
67                       'submit messages appear to have been sent out properly',
68                      );
69
70
71 # now send a message to the bug
72
73 send_message(to => '1@bugs.something',
74              headers => [To   => '1@bugs.something',
75                          From => 'foo@bugs.something',
76                          Subject => 'Sending a message to a bug',
77                         ],
78              body => <<EOF) or fail('sending message to 1@bugs.someting failed');
79 Package: foo
80 Severity: normal
81
82 This is a silly bug
83 EOF
84
85 $SD_SIZE =
86     num_messages_sent($SD_SIZE,2,
87                       $sendmail_dir,
88                       '1@bugs.something messages appear to have been sent out properly');
89
90 # just check to see that control doesn't explode
91 send_message(to => 'control@bugs.something',
92              headers => [To   => 'control@bugs.something',
93                          From => 'foo@bugs.something',
94                          Subject => 'Munging a bug',
95                         ],
96              body => <<EOF) or fail 'message to control@bugs.something failed';
97 severity 1 wishlist
98 retitle 1 new title
99 thanks
100 EOF
101
102 $SD_SIZE =
103    num_messages_sent($SD_SIZE,1,
104                      $sendmail_dir,
105                      'control@bugs.something messages appear to have been sent out properly');
106 # now we need to check to make sure the control message was processed without errors
107 ok(system('sh','-c','find '.$sendmail_dir.q( -type f | xargs grep -q "Subject: Processed: Munging a bug")) == 0,
108    'control@bugs.something message was parsed without errors');
109 # now we need to check to make sure that the control message actually did anything
110 # This is an eval because $ENV{DEBBUGS_CONFIG_FILE} isn't set at BEGIN{} time
111 eval "use Debbugs::Status qw(read_bug writebug);";
112 my $status = read_bug(bug=>1);
113 ok($status->{subject} eq 'new title','bug 1 retitled');
114 ok($status->{severity} eq 'wishlist','bug 1 wishlisted');
115
116 # now we're going to go through and methododically test all of the control commands.
117 my @control_commands =
118      (
119       severity_wishlist => {command => 'severity',
120                             value   => 'wishlist',
121                             status_key => 'severity',
122                             status_value => 'wishlist',
123                            },
124       reassign_bar_baz => {command => 'reassign',
125                            value   => 'bar,baz',
126                            status_key => 'package',
127                            status_value => 'bar,baz',
128                           },
129       reassign_foo => {command => 'reassign',
130                        value   => 'foo',
131                        status_key => 'package',
132                        status_value => 'foo',
133                       },
134       'found_1.0'        => {command => 'found',
135                              value   => '1.0',
136                              status_key => 'found_versions',
137                              status_value => ['1.0'],
138                             },
139       'notfound_1.0'     => {command => 'notfound',
140                              value   => '1.0',
141                              status_key => 'found_versions',
142                              status_value => [],
143                             },
144       'found_1.0~5+1b2'  => {command => 'found',
145                              value   => '1.0~5+1b2',
146                              status_key => 'found_versions',
147                              status_value => ['1.0~5+1b2'],
148                             },
149       'notfound_1.0~5+1b2' => {command => 'notfound',
150                                value   => '1.0~5+1b2',
151                                status_key => 'found_versions',
152                                status_value => [],
153                               },
154       'fixed_1.1'        => {command => 'fixed',
155                              value   => '1.1',
156                              status_key => 'fixed_versions',
157                              status_value => ['1.1'],
158                             },
159       'notfixed_1.1'     => {command => 'notfixed',
160                              value   => '1.1',
161                              status_key => 'fixed_versions',
162                              status_value => [],
163                             },
164       'found_1.0~5+1b2'  => {command => 'found',
165                              value   => '1.0~5+1b2',
166                              status_key => 'found_versions',
167                              status_value => ['1.0~5+1b2'],
168                             },
169       'fixed_1.2'        => {command => 'fixed',
170                              value   => '1.2',
171                              status_key => 'fixed_versions',
172                              status_value => ['1.2'],
173                             },
174       close              => {command => 'close',
175                              value   => '',
176                              status_key => 'done',
177                              status_value => 'foo@bugs.something',
178                             },
179       'found_1.3'        => {command => 'found',
180                              value   => '1.3',
181                              status_key => 'done',
182                              status_value => '',
183                             },
184       submitter_foo      => {command => 'submitter',
185                              value   => 'foo@bar.com',
186                              status_key => 'originator',
187                              status_value => 'foo@bar.com',
188                             },
189
190       forwarded_foo      => {command => 'forwarded',
191                              value   => 'foo@bar.com',
192                              status_key => 'forwarded',
193                              status_value => 'foo@bar.com',
194                             },
195       owner_foo          => {command => 'owner',
196                              value   => 'foo@bar.com',
197                              status_key => 'owner',
198                              status_value => 'foo@bar.com',
199                             },
200       owner_replyto      => {command => 'owner',
201                              value   => '!',
202                              status_key => 'owner',
203                              status_value => 'foo@bugs.something',
204                             },
205       noowner      => {command => 'noowner',
206                        value   => '',
207                        status_key => 'owner',
208                        status_value => '',
209                       },
210       clone        => {command => 'clone',
211                        value   => '-1',
212                        status_key => 'package',
213                        status_value => 'foo',
214                        bug          => '2',
215                       },
216       merge        => {command => 'merge',
217                        value   => '1 2',
218                        status_key => 'mergedwith',
219                        status_value => '2',
220                       },
221       unmerge      => {command => 'unmerge',
222                        value   => '',
223                        status_key => 'mergedwith',
224                        status_value => '',
225                       },
226       forcemerge   => {command => 'forcemerge',
227                        value   => '2',
228                        status_key => 'mergedwith',
229                        status_value => '2',
230                       },
231       unmerge      => {command => 'unmerge',
232                        value   => '',
233                        status_key => 'mergedwith',
234                        status_value => '',
235                       },
236       block        => {command => 'block',
237                        value   => ' with 2',
238                        status_key => 'blockedby',
239                        status_value => '2',
240                       },
241       unblock      => {command => 'unblock',
242                        value   => ' with 2',
243                        status_key => 'blockedby',
244                        status_value => '',
245                       },
246       summary      => {command => 'summary',
247                        value   => '5',
248                        status_key => 'summary',
249                        status_value => 'This is a silly bug',
250                       },
251       nosummary    => {command => 'summary',
252                        value   => '',
253                        status_key => 'summary',
254                        status_value => '',
255                       },
256       outlook      => {command => 'outlook',
257                        value   => '5',
258                        status_key => 'outlook',
259                        status_value => 'This is a silly bug',
260                       },
261       nooutlook    => {command => 'outlook',
262                        value   => '',
263                        status_key => 'outlook',
264                        status_value => '',
265                       },
266       affects      => {command => 'affects',
267                        value   => 'foo',
268                        status_key => 'affects',
269                        status_value => 'foo',
270                       },
271       noaffects    => {command => 'affects',
272                        value   => '',
273                        status_key => 'affects',
274                        status_value => '',
275                       },
276       close        => {command => 'close',
277                        value   => '',
278                        status_key => 'done',
279                        status_value => 'foo@bugs.something',
280                       },
281       archive      => {command => 'archive',
282                        value   => '',
283                        status_key => 'owner',
284                        status_value => '',
285                        location => 'archive',
286                       },
287       unarchive    => {command => 'unarchive',
288                        value   => '',
289                        status_key => 'owner',
290                        status_value => '',
291                       },
292       tag          => {command => 'tag',
293                        value   => ' = patch',
294                        status_key => 'keywords',
295                        status_value => 'patch',
296                       },
297       untag        => {command => 'tag',
298                        value   => ' - patch',
299                        status_key => 'keywords',
300                        status_value => '',
301                       },
302       plustag      => {command => 'tag',
303                        value   => ' + patch',
304                        status_key => 'keywords',
305                        status_value => 'patch',
306                       },
307       utf8_retitle => {command => 'retitle',
308                        value   => 'Thïs is a ütff8 title [♥♡☙☎]',
309                        status_key => 'subject',
310                        status_value => decode("utf8",'Thïs is a ütff8 title [♥♡☙☎]'),
311                       },
312      );
313
314 # In order for the archive/unarchive to work, we have to munge the summary file slightly
315 $status = read_bug(bug => 1);
316 $status->{unarchived} = time;
317 writebug(1,$status);
318 while (my ($command,$control_command) = splice(@control_commands,0,2)) {
319      # just check to see that control doesn't explode
320      $control_command->{value} = " $control_command->{value}" if length $control_command->{value}
321           and $control_command->{value} !~ /^\s/;
322      send_message(to => 'control@bugs.something',
323                   headers => [To   => 'control@bugs.something',
324                               From => 'foo@bugs.something',
325                               Subject => "Munging a bug with $command",
326                              ],
327                   body => <<EOF) or fail 'message to control@bugs.something failed';
328 debug 10
329 $control_command->{command} 1$control_command->{value}
330 thanks
331 EOF
332                                   ;
333      $SD_SIZE =
334          num_messages_sent($SD_SIZE,1,
335                            $sendmail_dir,
336                            'control@bugs.something messages appear to have been sent out properly');
337      # now we need to check to make sure the control message was processed without errors
338      ok(system('sh','-c','find '.$sendmail_dir.q( -type f | xargs grep -q "Subject: Processed: Munging a bug with $command")) == 0,
339         'control@bugs.something'. "$command message was parsed without errors");
340      # now we need to check to make sure that the control message actually did anything
341      my $status;
342      $status = read_bug(exists $control_command->{bug}?(bug => $control_command->{bug}):(bug=>1),
343                         exists $control_command->{location}?(location => $control_command->{location}):(),
344                        );
345      is_deeply($status->{$control_command->{status_key}},
346                $control_command->{status_value},
347                "bug " .
348                (exists $control_command->{bug}?$control_command->{bug}:1).
349                " $command"
350               )
351           or fail(Dumper($status));
352 }
353
354 # verify that archive/unarchive can then be modified afterwards
355
356 send_message(to => 'control@bugs.something',
357              headers => [To   => 'control@bugs.something',
358                          From => 'foo@bugs.something',
359                          Subject => "Munging a bug with unarchivearchive",
360                         ],
361              body => <<'EOF') or fail 'message to control@bugs.something failed';
362 debug 10
363 archive 1
364 unarchive 1
365 submitter 1 bar@baz.com
366 thanks
367 EOF
368                                   ;
369 $SD_SIZE =
370     num_messages_sent($SD_SIZE,1,
371                       $sendmail_dir,
372                       'control@bugs.something messages appear to have been sent out properly');
373 # now we need to check to make sure the control message was processed without errors
374 ok(system('sh','-c','find '.$sendmail_dir.q( -type f | xargs grep -q "Subject: Processed: Munging a bug with unarchivearchive")) == 0,
375    'control@bugs.something'. "unarchive/archive message was parsed without errors");