sub pop_mailque {
my ($self, $message) = @_;
- $message ||= "TestMan::pop_mail failed: no mail in mail que";
+ $message ||= "TestMan::pop_mailque";
my $mail = pop @{$self->mail_que} || {};
ok($mail, $message);
return Newslash::Util::TestMan::Mail->new($mail);