X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=t%2F06_mail_handling.t;h=2f8f452d7983c98431b5f258f7867fbe72506a10;hb=ea162515d6f096215237c46b55f9d5d3e370d02f;hp=01d4bc0d34ad65f1ed258d3897c023148f9220ea;hpb=064f06ed61ca08486cb9038f77ceee16ff599909;p=debbugs.git diff --git a/t/06_mail_handling.t b/t/06_mail_handling.t index 01d4bc0..2f8f452 100644 --- a/t/06_mail_handling.t +++ b/t/06_mail_handling.t @@ -1,7 +1,7 @@ # -*- mode: cperl;-*- # $Id: 05_mail.t,v 1.1 2005/08/17 21:46:17 don Exp $ -use Test::More tests => 37; +use Test::More tests => 127; use warnings; use strict; @@ -22,28 +22,18 @@ use File::Basename qw(dirname basename); use lib qw(t/lib); use DebbugsTest qw(:all); use Data::Dumper; +use Encode qw(decode encode); # HTTP::Server:::Simple defines a SIG{CHLD} handler that breaks system; undef it here. $SIG{CHLD} = sub {}; -my %config; -eval { - %config = create_debbugs_configuration(debug => exists $ENV{DEBUG}?$ENV{DEBUG}:0); -}; -if ($@) { - BAIL_OUT($@); -} +my %config = create_debbugs_configuration(); + my $sendmail_dir = $config{sendmail_dir}; my $spool_dir = $config{spool_dir}; my $config_dir = $config{config_dir}; -END{ - if ($ENV{DEBUG}) { - diag("spool_dir: $spool_dir\n"); - diag("config_dir: $config_dir\n"); - diag("sendmail_dir: $sendmail_dir\n"); - } -} + # We're going to use create mime message to create these messages, and # then just send them to receive. @@ -70,10 +60,13 @@ ok(-e "$spool_dir/db-h/01/1.report",'report file created'); # sent out. 1) ack to submitter 2) mail to maintainer # This keeps track of the previous size of the sendmail directory -my $SD_SIZE_PREV = 0; -my $SD_SIZE_NOW = dirsize($sendmail_dir); -ok($SD_SIZE_NOW-$SD_SIZE_PREV >= 2,'submit messages appear to have been sent out properly'); -$SD_SIZE_PREV=$SD_SIZE_NOW; +my $SD_SIZE = 0; +$SD_SIZE = + num_messages_sent($SD_SIZE,2, + $sendmail_dir, + 'submit messages appear to have been sent out properly', + ); + # now send a message to the bug @@ -89,9 +82,10 @@ Severity: normal This is a silly bug EOF -$SD_SIZE_NOW = dirsize($sendmail_dir); -ok($SD_SIZE_NOW-$SD_SIZE_PREV >= 2,'1@bugs.something messages appear to have been sent out properly'); -$SD_SIZE_PREV=$SD_SIZE_NOW; +$SD_SIZE = + num_messages_sent($SD_SIZE,2, + $sendmail_dir, + '1@bugs.something messages appear to have been sent out properly'); # just check to see that control doesn't explode send_message(to => 'control@bugs.something', @@ -105,26 +99,54 @@ retitle 1 new title thanks EOF -$SD_SIZE_NOW = dirsize($sendmail_dir); -ok($SD_SIZE_NOW-$SD_SIZE_PREV >= 1,'control@bugs.something messages appear to have been sent out properly'); -$SD_SIZE_PREV=$SD_SIZE_NOW; +$SD_SIZE = + num_messages_sent($SD_SIZE,1, + $sendmail_dir, + 'control@bugs.something messages appear to have been sent out properly'); # now we need to check to make sure the control message was processed without errors ok(system('sh','-c','find '.$sendmail_dir.q( -type f | xargs grep -q "Subject: Processed: Munging a bug")) == 0, 'control@bugs.something message was parsed without errors'); # now we need to check to make sure that the control message actually did anything # This is an eval because $ENV{DEBBUGS_CONFIG_FILE} isn't set at BEGIN{} time -eval "use Debbugs::Status qw(read_bug);"; +eval "use Debbugs::Status qw(read_bug writebug);"; my $status = read_bug(bug=>1); ok($status->{subject} eq 'new title','bug 1 retitled'); ok($status->{severity} eq 'wishlist','bug 1 wishlisted'); +# now check to see if we can close a bug using a psuedoheader done +send_message(to => '1-done@bugs.something', + headers => [To => 'control@bugs.something', + From => 'foo@bugs.something', + Subject => 'Munging a bug', + ], + body => <<'EOF') or fail 'message to control@bugs.something failed'; +Done: Me Developer + +I'm closing this bug for reasons +EOF + +$status = read_bug(bug=>1); +ok($status->{done} eq 'Me Developer '); + + # now we're going to go through and methododically test all of the control commands. my @control_commands = - (severity_wishlist => {command => 'severity', + ( + severity_wishlist => {command => 'severity', value => 'wishlist', status_key => 'severity', status_value => 'wishlist', }, + reassign_bar_baz => {command => 'reassign', + value => 'bar,baz', + status_key => 'package', + status_value => 'bar,baz', + }, + reassign_foo => {command => 'reassign', + value => 'foo', + status_key => 'package', + status_value => 'foo', + }, 'found_1.0' => {command => 'found', value => '1.0', status_key => 'found_versions', @@ -135,6 +157,16 @@ my @control_commands = status_key => 'found_versions', status_value => [], }, + 'found_1.0~5+1b2' => {command => 'found', + value => '1.0~5+1b2', + status_key => 'found_versions', + status_value => ['1.0~5+1b2'], + }, + 'notfound_1.0~5+1b2' => {command => 'notfound', + value => '1.0~5+1b2', + status_key => 'found_versions', + status_value => [], + }, 'fixed_1.1' => {command => 'fixed', value => '1.1', status_key => 'fixed_versions', @@ -145,6 +177,26 @@ my @control_commands = status_key => 'fixed_versions', status_value => [], }, + 'found_1.0~5+1b2' => {command => 'found', + value => '1.0~5+1b2', + status_key => 'found_versions', + status_value => ['1.0~5+1b2'], + }, + 'fixed_1.2' => {command => 'fixed', + value => '1.2', + status_key => 'fixed_versions', + status_value => ['1.2'], + }, + close => {command => 'close', + value => '', + status_key => 'done', + status_value => 'foo@bugs.something', + }, + 'found_1.3' => {command => 'found', + value => '1.3', + status_key => 'done', + status_value => '', + }, submitter_foo => {command => 'submitter', value => 'foo@bar.com', status_key => 'originator', @@ -161,14 +213,124 @@ my @control_commands = status_key => 'owner', status_value => 'foo@bar.com', }, + owner_replyto => {command => 'owner', + value => '!', + status_key => 'owner', + status_value => 'foo@bugs.something', + }, noowner => {command => 'noowner', value => '', status_key => 'owner', status_value => '', }, - + clone => {command => 'clone', + value => '-1', + status_key => 'package', + status_value => 'foo', + bug => '2', + }, + merge => {command => 'merge', + value => '1 2', + status_key => 'mergedwith', + status_value => '2', + }, + unmerge => {command => 'unmerge', + value => '', + status_key => 'mergedwith', + status_value => '', + }, + forcemerge => {command => 'forcemerge', + value => '2', + status_key => 'mergedwith', + status_value => '2', + }, + unmerge => {command => 'unmerge', + value => '', + status_key => 'mergedwith', + status_value => '', + }, + block => {command => 'block', + value => ' with 2', + status_key => 'blockedby', + status_value => '2', + }, + unblock => {command => 'unblock', + value => ' with 2', + status_key => 'blockedby', + status_value => '', + }, + summary => {command => 'summary', + value => '5', + status_key => 'summary', + status_value => 'This is a silly bug', + }, + nosummary => {command => 'summary', + value => '', + status_key => 'summary', + status_value => '', + }, + outlook => {command => 'outlook', + value => '5', + status_key => 'outlook', + status_value => 'This is a silly bug', + }, + nooutlook => {command => 'outlook', + value => '', + status_key => 'outlook', + status_value => '', + }, + affects => {command => 'affects', + value => 'foo', + status_key => 'affects', + status_value => 'foo', + }, + noaffects => {command => 'affects', + value => '', + status_key => 'affects', + status_value => '', + }, + close => {command => 'close', + value => '', + status_key => 'done', + status_value => 'foo@bugs.something', + }, + archive => {command => 'archive', + value => '', + status_key => 'owner', + status_value => '', + location => 'archive', + }, + unarchive => {command => 'unarchive', + value => '', + status_key => 'owner', + status_value => '', + }, + tag => {command => 'tag', + value => ' = patch', + status_key => 'keywords', + status_value => 'patch', + }, + untag => {command => 'tag', + value => ' - patch', + status_key => 'keywords', + status_value => '', + }, + plustag => {command => 'tag', + value => ' + patch', + status_key => 'keywords', + status_value => 'patch', + }, + utf8_retitle => {command => 'retitle', + value => 'Thïs is a ütff8 title [♥♡☙☎]', + status_key => 'subject', + status_value => decode("utf8",'Thïs is a ütff8 title [♥♡☙☎]'), + }, ); +# In order for the archive/unarchive to work, we have to munge the summary file slightly +$status = read_bug(bug => 1); +$status->{unarchived} = time; +writebug(1,$status); 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} @@ -179,18 +341,51 @@ while (my ($command,$control_command) = splice(@control_commands,0,2)) { Subject => "Munging a bug with $command", ], body => <{command} 1$control_command->{value} thanks EOF ; - $SD_SIZE_NOW = dirsize($sendmail_dir); - ok($SD_SIZE_NOW-$SD_SIZE_PREV >= 1,'control@bugs.something messages appear to have been sent out properly'); - $SD_SIZE_PREV=$SD_SIZE_NOW; + $SD_SIZE = + num_messages_sent($SD_SIZE,1, + $sendmail_dir, + 'control@bugs.something messages appear to have been sent out properly'); # now we need to check to make sure the control message was processed without errors ok(system('sh','-c','find '.$sendmail_dir.q( -type f | xargs grep -q "Subject: Processed: Munging a bug with $command")) == 0, 'control@bugs.something'. "$command message was parsed without errors"); # now we need to check to make sure that the control message actually did anything - my $status = read_bug(bug=>1); - is_deeply($status->{$control_command->{status_key}},$control_command->{status_value},"bug 1 $command") + my $status; + $status = read_bug(exists $control_command->{bug}?(bug => $control_command->{bug}):(bug=>1), + exists $control_command->{location}?(location => $control_command->{location}):(), + ); + is_deeply($status->{$control_command->{status_key}}, + $control_command->{status_value}, + "bug " . + (exists $control_command->{bug}?$control_command->{bug}:1). + " $command" + ) or fail(Dumper($status)); } + +# verify that archive/unarchive can then be modified afterwards + +send_message(to => 'control@bugs.something', + headers => [To => 'control@bugs.something', + From => 'foo@bugs.something', + Subject => "Munging a bug with unarchivearchive", + ], + body => <<'EOF') or fail 'message to control@bugs.something failed'; +debug 10 +archive 1 +unarchive 1 +submitter 1 bar@baz.com +thanks +EOF + ; +$SD_SIZE = + num_messages_sent($SD_SIZE,1, + $sendmail_dir, + 'control@bugs.something messages appear to have been sent out properly'); +# now we need to check to make sure the control message was processed without errors +ok(system('sh','-c','find '.$sendmail_dir.q( -type f | xargs grep -q "Subject: Processed: Munging a bug with unarchivearchive")) == 0, + 'control@bugs.something'. "unarchive/archive message was parsed without errors");