From 68fcaca8516323cd542d544a0585d7ab0db0900f Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 14 Jul 2012 12:52:46 -0700
Subject: [PATCH] test that -1 actually refers to the current bug Fix clearing
 of %clonebugs

---
 scripts/process          |  1 -
 t/14_control_at_submit.t | 30 ++++++++++++++++++++++++------
 2 files changed, 24 insertions(+), 7 deletions(-)

diff --git a/scripts/process b/scripts/process
index 4236f6b..9a0eb65 100755
--- a/scripts/process
+++ b/scripts/process
@@ -990,7 +990,6 @@ if (@control_bits) {
 	print {$transcript} fill_template('mail/excluded_from_control');
 	print {$transcript} "Stopping processing here.\n\n";
     } else {
-	my %clonebugs = ();
 	for my $control_bit (@control_bits) {
 	    $control_bit =~ s/\xef\xbb\xbf//g;
 	    next unless $control_bit =~ m/\S/;
diff --git a/t/14_control_at_submit.t b/t/14_control_at_submit.t
index 7f0659f..38ea9d8 100644
--- a/t/14_control_at_submit.t
+++ b/t/14_control_at_submit.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 => 118;
+use Test::More tests => 120;
 
 use warnings;
 use strict;
@@ -124,6 +124,24 @@ my $status = read_bug(bug=>1);
 ok($status->{subject} eq 'new title','bug 1 retitled');
 ok($status->{severity} eq 'wishlist','bug 1 wishlisted');
 
+send_message(to => 'submit@bugs.something',
+	     headers => [To   => 'submit@bugs.something',
+			 From => 'foo@bugs.something',
+			 Subject => 'Testing submit at control',
+			],
+	     body => <<EOF) or fail 'message to submit@bugs.something failed';
+Package: foo
+Control: retitle -1 this is a new title
+EOF
+
+ok(system('sh','-c','find '.$sendmail_dir.q( -type f | xargs grep -q "Subject: Processed: Testing submit at control")) == 0,
+   'submit@bugs.something message was parsed without errors');
+
+$status = read_bug(bug=>2);
+ok($status->{subject} eq 'this is a new title','bug 2 retitled at submit@ time');
+
+
+
 # now we're going to go through and methododically test all of the control commands.
 my @control_commands =
      (
@@ -131,7 +149,7 @@ my @control_commands =
  		       value   => '-2',
  		       status_key => 'package',
  		       status_value => 'foo',
- 		       bug          => '3',
+ 		       bug          => '4',
  		      },
        severity_wishlist => {command => 'severity',
  			    value   => 'wishlist',
@@ -225,9 +243,9 @@ my @control_commands =
  		       status_value => '',
  		      },
        merge        => {command => 'merge',
- 		       value   => '1 3',
+ 		       value   => '1 4',
  		       status_key => 'mergedwith',
- 		       status_value => '3',
+ 		       status_value => '4',
  		      },
        unmerge      => {command => 'unmerge',
  		       value   => '',
@@ -235,9 +253,9 @@ my @control_commands =
  		       status_value => '',
  		      },
        forcemerge   => {command => 'forcemerge',
- 		       value   => '3',
+ 		       value   => '4',
  		       status_key => 'mergedwith',
- 		       status_value => '3',
+ 		       status_value => '4',
  		      },
        unmerge      => {command => 'unmerge',
  		       value   => '',
-- 
2.39.2