1#!perl -w 2 3sub register_tests { 4 my $self = shift; 5 $self->register_test("test_authnull", 1); 6} 7 8sub test_authnull { 9 my $self = shift; 10 my $address = Qpsmtpd::Address->parse('<me@example.com>'); 11 my ($ret, $note) = $self->hook_auth($self->qp->transaction, 'bogus_method', 12 'bogus_user'); 13 is ($ret, OK, "bogus_user is free to abuse my relay"); 14} 15