cvs commit: qpsmtpd/t/plugin_tests dnsbl
[email protected] (John Peacock) 22 Feb 2005 00:38:06 -0000
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 05/02/21 16:38:06
Modified: t/plugin_tests dnsbl
Log:
rcpt_handler requires a Qpsmtpd::Address object not just the bare address
Revision Changes Path
1.3 +4 -2 qpsmtpd/t/plugin_tests/dnsbl
Index: dnsbl
===================================================================
RCS file: /cvs/public/qpsmtpd/t/plugin_tests/dnsbl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- dnsbl 8 Sep 2004 21:53:29 -0000 1.2
+++ dnsbl 22 Feb 2005 00:38:06 -0000 1.3
@@ -18,8 +18,10 @@
sub test_returnval {
my $self = shift;
-
- my ($ret, $note) = $self->rcpt_handler($self->qp->transaction, '[email protected]');
+
+ my $address = Qpsmtpd::Address->parse('<[email protected]>');
+ my ($ret, $note) = $self->rcpt_handler($self->qp->transaction,
+ $address);
is($ret, DENY, "Check we got a DENY");
print("# dnsbl result: $note\n");
}