more debugging for the benefit of taskcluster

parent 8b03219f
...@@ -353,28 +353,28 @@ sub verify_bugmail_recipients { ...@@ -353,28 +353,28 @@ sub verify_bugmail_recipients {
my $err = 0; my $err = 0;
my ($package, $filename, $line) = caller; my ($package, $filename, $line) = caller;
diag "verify_bugmail_recipients called from $filename line $line"; my $prefix = "verify_bugmail_recipients:$line";
# Verify sentto field # Verify sentto field
my @email_sentto my @email_sentto
= sort split(/, /, $sel->get_text("//dt[text()='Email sent to:']/following-sibling::dd")); = sort split(/, /, $sel->get_text("//dt[text()='Email sent to:']/following-sibling::dd"));
if ($rcpt_sentto == RCPT_BOTH) { if ($rcpt_sentto == RCPT_BOTH) {
$wanted_sentto = \@email_both; $wanted_sentto = \@email_both;
is_deeply(\@email_sentto, $wanted_sentto, "Bugmail sent to both") is_deeply(\@email_sentto, $wanted_sentto, "$prefix: Bugmail sent to both")
or $err = 1; or $err = 1;
} }
elsif ($rcpt_sentto == RCPT_ADMIN) { elsif ($rcpt_sentto == RCPT_ADMIN) {
$wanted_sentto = \@email_admin; $wanted_sentto = \@email_admin;
is_deeply(\@email_sentto, $wanted_sentto, "Bugmail sent to admin") is_deeply(\@email_sentto, $wanted_sentto, "$prefix: Bugmail sent to admin")
or $err = 1; or $err = 1;
} }
elsif ($rcpt_sentto == RCPT_NORMAL) { elsif ($rcpt_sentto == RCPT_NORMAL) {
$wanted_sentto = \@email_normal; $wanted_sentto = \@email_normal;
is_deeply(\@email_sentto, $wanted_sentto, "Bugmail sent to normal user") is_deeply(\@email_sentto, $wanted_sentto, "$prefix: Bugmail sent to normal user")
or $err = 1; or $err = 1;
} else { } else {
$wanted_sentto = \@email_none; $wanted_sentto = \@email_none;
is_deeply(\@email_sentto, $wanted_sentto, "Bugmail sent to no one") is_deeply(\@email_sentto, $wanted_sentto, "$prefix: Bugmail sent to no one")
or $err = 1; or $err = 1;
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment