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