2012-05-05 05:33:50 +02:00
|
|
|
#!perl -w
|
2007-05-18 00:00:55 +02:00
|
|
|
|
|
|
|
|
sub register_tests {
|
|
|
|
|
my $self = shift;
|
|
|
|
|
$self->register_test("test_authnull", 1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub test_authnull {
|
|
|
|
|
my $self = shift;
|
|
|
|
|
my $address = Qpsmtpd::Address->parse('<me@example.com>');
|
|
|
|
|
my ($ret, $note) = $self->hook_auth($self->qp->transaction, 'bogus_method',
|
|
|
|
|
'bogus_user');
|
|
|
|
|
is ($ret, OK, "bogus_user is free to abuse my relay");
|
|
|
|
|
}
|
