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