byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

rcpt_handler requires a Qpsmtpd::Address object not just the bare address

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@368 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
John Peacock 2005-02-22 00:38:06 +00:00
parent d0b9558ce9
commit d790bd519d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
t/plugin_tests/dnsbl
View File

@ -18,8 +18,10 @@ sub test_local {
sub test_returnval {
my $self = shift;
my ($ret, $note) = $self->rcpt_handler($self->qp->transaction, 'rcpt@example.com');
my $address = Qpsmtpd::Address->parse('<rcpt@example.com>');
my ($ret, $note) = $self->rcpt_handler($self->qp->transaction,
$address);
is($ret, DENY, "Check we got a DENY");
print("# dnsbl result: $note\n");
}