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

Fix test failures due to hook renames

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.31@504 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
John Peacock 2005-07-14 10:38:11 +00:00
parent 35f45f208b
commit bfd72e8ade
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
t/plugin_tests/dnsbl
View File

@ -11,7 +11,7 @@ sub test_local {
my $connection = $self->qp->connection; my $connection = $self->qp->connection;
$connection->remote_ip('127.0.0.2'); # standard dnsbl test value $connection->remote_ip('127.0.0.2'); # standard dnsbl test value
$self->connect_handler($self->qp->transaction); $self->hook_connect($self->qp->transaction);
ok($self->qp->connection->notes('dnsbl_sockets')); ok($self->qp->connection->notes('dnsbl_sockets'));
} }
@ -20,7 +20,7 @@ sub test_returnval {
my $self = shift; my $self = shift;
my $address = Qpsmtpd::Address->parse('<rcpt@example.com>'); my $address = Qpsmtpd::Address->parse('<rcpt@example.com>');
my ($ret, $note) = $self->rcpt_handler($self->qp->transaction, my ($ret, $note) = $self->hook_rcpt($self->qp->transaction,
$address); $address);
is($ret, DENY, "Check we got a DENY"); is($ret, DENY, "Check we got a DENY");
print("# dnsbl result: $note\n"); print("# dnsbl result: $note\n");