byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

More tests

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@736 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2007-05-17 22:00:55 +00:00
parent 5c71daf274
commit 60b74decd9
3 changed files with 55 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
t/plugin_tests/auth::auth_flat_file Normal file
View File

@ -0,0 +1,27 @@
# -*-perl-*- [emacs]
sub register_tests {
my $self = shift;
$self->register_test("test_authsql", 3);
}
my @u_list = qw ( good bad none );
my %u_data = (
good => [ 'good@example.com', OK, 'good_pass' ],
bad => [ 'bad@example.com', DENY, 'not_bad_pass' ],
none => [ 'none@example.com', DECLINED, '' ],
);
sub test_authsql {
my $self = shift;
my ($tran, $ret, $note, $u, $r, $p, $a );
$tran = $self->qp->transaction;
for $u ( @u_list ) {
( $a,$r,$p ) = @{$u_data{$u}};
($ret, $note) = $self->authsql($tran,'CRAMMD5',$a,$p);
defined $note or $note='No-Message';
is ($ret, $r, $note);
# - for debugging.
# warn "$note\n";
}
}

14
t/plugin_tests/auth::authdeny Normal file
View File

@ -0,0 +1,14 @@
# -*-perl-*- [emacs]
sub register_tests {
my $self = shift;
$self->register_test("test_authdeny", 1);
}
sub test_authdeny {
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, DECLINED, "bogus_user is not free to abuse my relay");
}

14
t/plugin_tests/auth::authnull Normal file
View File

@ -0,0 +1,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");
}