From: Don Armstrong Date: Sat, 14 Jul 2012 03:49:24 +0000 (-0700) Subject: add tests for control at submit time X-Git-Tag: release/2.6.0~367^2~3 X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=29b09c6df08236eac458eeff27bbd393b20e0ac3 add tests for control at submit time --- diff --git a/t/14_control_at_submit.t b/t/14_control_at_submit.t new file mode 100644 index 0000000..7f0659f --- /dev/null +++ b/t/14_control_at_submit.t @@ -0,0 +1,353 @@ +# -*- mode: cperl;-*- +# $Id: 05_mail.t,v 1.1 2005/08/17 21:46:17 don Exp $ + +use Test::More tests => 118; + +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); +# The test functions are placed here to make things easier +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 $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. + +send_message(to=>'submit@bugs.something', + headers => [To => 'submit@bugs.something', + From => 'foo@bugs.something', + Subject => 'Submiting a bug', + ], + body => < '1@bugs.something', + headers => [To => '1@bugs.something', + From => 'foo@bugs.something', + Subject => 'Sending a message to a bug', + ], + body => < 'control@bugs.something', + headers => [To => 'control@bugs.something', + From => 'foo@bugs.something', + Subject => 'Munging a bug', + ], + body => <1); +ok($status->{subject} eq 'new title','bug 1 retitled'); +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 = + ( + clone => {command => 'clone', + value => '-2', + status_key => 'package', + status_value => 'foo', + bug => '3', + }, + 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', + status_value => ['1.0'], + }, + 'notfound_1.0' => {command => 'notfound', + value => '1.0', + 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', + status_value => ['1.1'], + }, + 'notfixed_1.1' => {command => 'notfixed', + value => '1.1', + 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', + status_value => 'foo@bar.com', + }, + + forwarded_foo => {command => 'forwarded', + value => 'foo@bar.com', + status_key => 'forwarded', + status_value => 'foo@bar.com', + }, + notforwarded => {command => 'notforwarded', + value => '', + status_key => 'forwarded', + status_value => '', + }, + owner_foo => {command => 'owner', + value => 'foo@bar.com', + status_key => 'owner', + status_value => 'foo@bar.com', + }, + noowner => {command => 'noowner', + value => '', + status_key => 'owner', + status_value => '', + }, + merge => {command => 'merge', + value => '1 3', + status_key => 'mergedwith', + status_value => '3', + }, + unmerge => {command => 'unmerge', + value => '', + status_key => 'mergedwith', + status_value => '', + }, + forcemerge => {command => 'forcemerge', + value => '3', + status_key => 'mergedwith', + status_value => '3', + }, + 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 => '', + }, + 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} + and $control_command->{value} !~ /^\s/; + send_message(to => 'submit@bugs.something', + headers => [To => 'submit@bugs.something', + From => 'foo@bugs.something', + Subject => "Munging a bug with $command", + ], + body => <{command} 1$control_command->{value} +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 $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; + $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)); +} +