qpsmtpd/t/plugin_tests/auth/authnull

15 lines
369 B
Plaintext
Raw Normal View History

2012-05-05 05:33:50 +02:00
#!perl -w
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");
}