# -*- mode: cperl;-*-
-use Test::More tests => 32;
+use Test::More tests => 35;
use warnings;
use strict;
# 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.
my @control_commands =
(
clone => {command => 'clone',
- value => '-1',
+ value => '1 -1',
status_key => 'package',
status_value => 'foo',
bug => '2',
status_value => '2',
},
unmerge => {command => 'unmerge',
- value => '',
+ value => '1',
status_key => 'mergedwith',
status_value => '',
},
],
body => <<'EOF') or fail 'message to control@bugs.something failed';
debug 10
-clone 2 -1 -2 -3 -4
+clone 2 -1 -2 -3 -4 -5 -6
retitle 2 foo
owner 2 bar@baz.com
submitter 2 fleb@bleh.com
tag -3 wontfix
fixed -4 1.2-3
found -4 1.2-1
+found -5 1.2-5
+fixed -5 1.2-6
thanks
EOF
;
test_control_commands(forcemerge => {command => 'forcemerge',
- value => '2',
+ value => '1 2',
status_key => 'mergedwith',
status_value => '2',
},
unmerge => {command => 'unmerge',
- value => '',
+ value => '1',
status_key => 'mergedwith',
status_value => '',
},
forcemerge => {command => 'forcemerge',
- value => '2 5',
+ value => '1 2 5',
status_key => 'mergedwith',
status_value => '2 5',
},
forcemerge => {command => 'forcemerge',
- value => '2 6',
+ value => '1 2 6',
status_key => 'mergedwith',
status_value => '2 5 6',
},
+ merge => {command => 'merge',
+ value => '7 8',
+ status_key => 'mergedwith',
+ status_value => '8',
+ bug => '7',
+ },
);
],
body => <<EOF) or fail 'message to control@bugs.something failed';
debug 10
-$control_command->{command} 1$control_command->{value}
+$control_command->{command} $control_command->{value}
thanks
EOF
;