[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");