X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=t%2F06_mail_handling.t;h=1cc842c2b378716e57a2dcd5bf032f47b427bff3;hb=f6ab68a65d92f4088bee34f1a45dd09ced4445ba;hp=eb4f65699a3b9fa68465e0c06bea80bd990fb245;hpb=1ef8f73c24a155eb3359f73513ad0c5e553b803f;p=debbugs.git diff --git a/t/06_mail_handling.t b/t/06_mail_handling.t index eb4f656..1cc842c 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 => 96; +use Test::More tests => 117; use warnings; use strict; @@ -22,6 +22,7 @@ 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 {}; @@ -70,10 +71,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 +93,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,9 +110,10 @@ 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'); @@ -120,16 +126,17 @@ ok($status->{severity} eq 'wishlist','bug 1 wishlisted'); # 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 => {command => 'reassign', - value => 'bar', - status_key => 'package', - status_value => 'bar', - }, + reassign_bar_baz => {command => 'reassign', + value => 'bar,baz', + status_key => 'package', + status_value => 'bar,baz', + }, reassign_foo => {command => 'reassign', value => 'foo', status_key => 'package', @@ -227,6 +234,21 @@ my @control_commands = 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', @@ -263,6 +285,26 @@ my @control_commands = 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 @@ -284,9 +326,10 @@ $control_command->{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"); @@ -319,9 +362,10 @@ submitter 1 bar@baz.com 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 unarchivearchive")) == 0, 'control@bugs.something'. "unarchive/archive message was parsed without errors");