[svn:qpsmtpd] rev 504 - branches/0.31/t/plugin_tests
[email protected] 14 Jul 2005 10:38:12 -0000
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
Author: jpeacock
Date: Thu Jul 14 03:38:11 2005
New Revision: 504
Modified:
branches/0.31/t/plugin_tests/dnsbl
Log:
Fix test failures due to hook renames
Modified: branches/0.31/t/plugin_tests/dnsbl
==============================================================================
--- branches/0.31/t/plugin_tests/dnsbl (original)
+++ branches/0.31/t/plugin_tests/dnsbl Thu Jul 14 03:38:11 2005
@@ -11,7 +11,7 @@ sub test_local {
my $connection = $self->qp->connection;
$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'));
}
@@ -20,7 +20,7 @@ sub test_returnval {
my $self = shift;
my $address = Qpsmtpd::Address->parse('<[email protected]>');
- my ($ret, $note) = $self->rcpt_handler($self->qp->transaction,
+ my ($ret, $note) = $self->hook_rcpt($self->qp->transaction,
$address);
is($ret, DENY, "Check we got a DENY");
print("# dnsbl result: $note\n");