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

Moved to attic

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@325 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2004-09-21 18:16:05 +00:00
parent 31eed901be
commit 86b15d8e0a
1 changed files with 0 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
t/plugin_tests/bounce_verp
View File

@ -1,62 +0,0 @@
# Bounce verp tests
sub register_tests {
my $self = shift;
$self->register_test(test_skip_verp => 8);
$self->register_test(test_is_bounce => 4);
$self->register_test(test_do_verp => 1);
$self->register_test(test_check_verp => 1);
}
sub test_skip_verp {
my $self = shift;
# poison the cache
$self->qp->{_config_cache}->{'bounce_verp.skip'} = [
'example.com',
'qpsmtpd@perl.org',
];
# check the cache poison
my @skip = $self->qp->config('bounce_verp.skip');
ok(@skip == 2, "skip contains right number of elements");
for (qw(test@example.com x@example.com qpsmtpd@perl.org qpsmtpd-foo@perl.org x@eXample.com))
{
ok($self->skip_verp($_), "Skip $_");
}
for (qw(test@example.org p5p@perl.org)) {
ok(!$self->skip_verp($_), "Skip $_");
}
}
sub test_is_bounce {
my $self = shift;
my $tran = $self->transaction();
# check null sender
$tran->sender(Qpsmtpd::Address->new('<>'));
ok($self->is_bounce($tran), "Check null sender is_bounce");
# check postmaster mail
$tran->sender(Qpsmtpd::Address->new('<postmaster@example.com>'));
ok($self->is_bounce($tran), "Check postmaster is_bounce");
# check mailer-daemon mail
$tran->sender(Qpsmtpd::Address->new('<mailer-daemon@example.com>'));
ok($self->is_bounce($tran), "Check mailer-daemon is_bounce");
$tran->sender(Qpsmtpd::Address->new('<Mailer_daemon@example.com>'));
ok($self->is_bounce($tran), "Check mailer_daemon is_bounce");
}
sub test_do_verp {
ok(1);
}
sub test_check_verp {
ok(1);
}