63 lines
1.6 KiB
Plaintext
63 lines
1.6 KiB
Plaintext
|
# 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);
|
||
|
|
}
|