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

rcpt_ok: shorten test messages

Browse Source
This commit is contained in:
Matt Simerson 2012-06-23 00:54:27 -04:00
parent 781e3ada4d
commit 0498669f45
1 changed files with 13 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
t/plugin_tests/rcpt_ok
View File

@ -22,15 +22,15 @@ sub test_hook_rcpt {
my $address = Qpsmtpd::Address->parse('<user@localhost>'); my $address = Qpsmtpd::Address->parse('<user@localhost>');
my ($r, $mess) = $self->hook_rcpt( $transaction, $address ); my ($r, $mess) = $self->hook_rcpt( $transaction, $address );
cmp_ok( $r, '==', OK, "hook_rcpt, localhost"); cmp_ok( $r, '==', OK, "localhost");
$address = Qpsmtpd::Address->parse('<user@example.com>'); $address = Qpsmtpd::Address->parse('<user@example.com>');
($r, $mess) = $self->hook_rcpt( $transaction, $address ); ($r, $mess) = $self->hook_rcpt( $transaction, $address );
cmp_ok( $r, '==', DENY, "hook_rcpt, example.com"); cmp_ok( $r, '==', DENY, "example.com");
$self->qp->connection->relay_client(1); $self->qp->connection->relay_client(1);
($r, $mess) = $self->hook_rcpt( $transaction, $address ); ($r, $mess) = $self->hook_rcpt( $transaction, $address );
cmp_ok( $r, '==', OK, "hook_rcpt, example.com"); cmp_ok( $r, '==', OK, "example.com");
$self->qp->connection->relay_client(0); $self->qp->connection->relay_client(0);
}; };
@ -57,48 +57,45 @@ sub test_is_in_morercpthosts {
my $ref = $self->qp->config('morercpthosts', 'map'); my $ref = $self->qp->config('morercpthosts', 'map');
my ($domain) = keys %$ref; my ($domain) = keys %$ref;
if ( $domain ) { if ( $domain ) {
ok( $self->is_in_morercpthosts( $domain ), "is_in_morercpthosts, $domain"); ok( $self->is_in_morercpthosts( $domain ), "$domain");
} }
else { else {
ok(1, "is_in_morercpthosts (skip, no entries)" ); ok(1, "is_in_morercpthosts (skip, no entries)" );
}; };
ok( ! $self->is_in_morercpthosts( 'example.com' ), "is_in_morercpthosts -"); ok( ! $self->is_in_morercpthosts( 'example.com' ), "missing -");
}; };
sub test_get_rcpt_host { sub test_get_rcpt_host {
my $self = shift; my $self = shift;
my $address = Qpsmtpd::Address->parse('<me@example.com>'); my $address = Qpsmtpd::Address->parse('<me@example.com>');
cmp_ok( $self->get_rcpt_host( $address ), 'eq', 'example.com', cmp_ok( $self->get_rcpt_host( $address ), 'eq', 'example.com', "+" );
"get_rcpt_host, +" );
$address = Qpsmtpd::Address->parse('<me@exaMple.com>'); $address = Qpsmtpd::Address->parse('<me@exaMple.com>');
cmp_ok( $self->get_rcpt_host( $address ), 'eq', 'example.com', cmp_ok( $self->get_rcpt_host( $address ), 'eq', 'example.com', "+" );
"get_rcpt_host, +" );
$address = Qpsmtpd::Address->parse('<root@example.com>'); $address = Qpsmtpd::Address->parse('<root@example.com>');
cmp_ok( $self->get_rcpt_host( $address ), 'eq', 'example.com', cmp_ok( $self->get_rcpt_host( $address ), 'eq', 'example.com', "+" );
"get_rcpt_host, +" );
$address = Qpsmtpd::Address->parse('<postmaster>'); $address = Qpsmtpd::Address->parse('<postmaster>');
my $local_hostname = $self->get_rcpt_host( $address ); my $local_hostname = $self->get_rcpt_host( $address );
if ( $local_hostname eq 'some.host.example.org' ) { if ( $local_hostname eq 'some.host.example.org' ) {
cmp_ok( $self->get_rcpt_host( $address ), 'eq', 'some.host.example.org', cmp_ok( $self->get_rcpt_host( $address ), 'eq', 'some.host.example.org',
"get_rcpt_host, special postmaster +" ); "special postmaster +" );
} }
else { else {
ok( 1, "get_rcpt_host, special postmaster + ($local_hostname)" ); ok( 1, "special postmaster + ($local_hostname)" );
} }
# I think this is a bug. Qpsmtpd::Address fails to parse <abuse> # I think this is a bug. Qpsmtpd::Address fails to parse <abuse>
$address = Qpsmtpd::Address->parse('<abuse>'); $address = Qpsmtpd::Address->parse('<abuse>');
ok( ! $self->get_rcpt_host( $address ), "get_rcpt_host, missing host" ); ok( ! $self->get_rcpt_host( $address ), "missing host" );
$address = Qpsmtpd::Address->parse('<>'); $address = Qpsmtpd::Address->parse('<>');
ok( ! $self->get_rcpt_host( $address ), "get_rcpt_host, null recipient" ); ok( ! $self->get_rcpt_host( $address ), "null recipient" );
$address = Qpsmtpd::Address->parse('<@example.com>'); $address = Qpsmtpd::Address->parse('<@example.com>');
ok( ! $self->get_rcpt_host( $address ), "get_rcpt_host, missing user" ); ok( ! $self->get_rcpt_host( $address ), "missing user" );
}; };