File: authnull

package info (click to toggle)
qpsmtpd 0.84-9
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 1,376 kB
  • sloc: perl: 8,012; sh: 382; makefile: 61
file content (14 lines) | stat: -rw-r--r-- 380 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
# -*-perl-*- [emacs]

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