Merge pull request from msimerson/master

address: added tests for Address::canonify
This commit is contained in:
Matt Simerson 2014-10-11 21:00:38 -07:00
commit 76c2e5b030
2 changed files with 48 additions and 11 deletions

View File

@ -190,32 +190,38 @@ sub canonify {
my ($dummy, $path) = @_;
# strip delimiters
return if $path !~ /^<(.*)>$/;
if ($path !~ /^<(.*)>$/) {
return undef, undef, 'missing delimiters'; ## no critic (undef)
};
$path = $1;
my $domain = $domain_expr || "$subdomain_expr(?:\.$subdomain_expr)*";
my $domain_re = $domain_expr || "$subdomain_expr(?:\.$subdomain_expr)*";
# $address_literal_expr may be empty, if a site doesn't allow them
if (!$domain_expr && $address_literal_expr) {
$domain = "(?:$address_literal_expr|$domain)";
$domain_re = "(?:$address_literal_expr|$domain_re)";
};
# strip source route
$path =~ s/^\@$domain(?:,\@$domain)*://;
$path =~ s/^\@$domain_re(?:,\@$domain_re)*://;
# empty path is ok
return '' if $path eq '';
if ($path eq '') {
return '', undef, 'empty path';
};
# bare postmaster is permissible, perl RFC-2821 (4.5.1)
# bare postmaster is permissible, per RFC-2821 (4.5.1)
if ( $path =~ m/^postmaster$/i ) {
return 'postmaster';
return 'postmaster', undef, 'bare postmaster';
}
my ($localpart, $domainpart) = ($path =~ /^(.*)\@($domain)$/);
return if !defined $localpart;
my ($localpart, $domainpart) = $path =~ /^(.*)\@($domain_re)$/;
if (!defined $localpart) {
return;
};
if ($localpart =~ /^$atom_expr(\.$atom_expr)*/) {
return $localpart, $domainpart; # simple case, we are done
return $localpart, $domainpart, 'local matches atom'; # simple case, we are done
}
if ($localpart =~ /^"(($qtext_expr|\\$text_expr)*)"$/) {
@ -223,7 +229,7 @@ sub canonify {
$localpart =~ s/\\($text_expr)/$1/g;
return $localpart, $domainpart;
}
return;
return undef, undef, 'fall through'; ## no critic (undef)
}
sub parse {

View File

@ -17,6 +17,7 @@ BEGIN {
__new();
__config();
__parse();
__canonify();
done_testing();
@ -186,3 +187,33 @@ sub __config {
is($sender->config($_->{pref}), $_->{expected}, $_->{descr});
}
}
sub __canonify {
my $as = 'foo@x.example.com';
my $ao = Qpsmtpd::Address->new($as);
ok( ! defined $Qpsmtpd::Address::domain_expr, "domain_expr is undef");
ok( $Qpsmtpd::Address::subdomain_expr, "subdomain_expr is defined, $Qpsmtpd::Address::subdomain_expr");
my @r = Qpsmtpd::Address->canonify('sample@path');
is_deeply(\@r, [ undef, undef, "missing delimiters" ], 'canonify, missing delimiters');
@r = Qpsmtpd::Address->canonify('');
is_deeply(\@r, [ undef, undef, "missing delimiters" ], 'canonify, empty path');
@r = Qpsmtpd::Address->canonify('<postmaster>');
is_deeply(\@r, [ 'postmaster', undef, "bare postmaster" ], 'canonify, bare postmaster');
@r = Qpsmtpd::Address->canonify('<postmaster@test>');
is_deeply(\@r, [ 'postmaster', 'test', 'local matches atom' ], 'canonify, postmaster@test');
@r = Qpsmtpd::Address->canonify('<@a:postmaster@test>');
is_deeply(\@r, [ 'postmaster', 'test', 'local matches atom' ], 'canonify, @a:postmaster@test (source route)');
@r = Qpsmtpd::Address->canonify('<postmáster@test>');
is_deeply(\@r, [ 'postmáster', 'test', 'local matches atom' ], 'canonify, postmáster@test, local matches atom');
@r = Qpsmtpd::Address->canonify('<@192.168.1.1>');
is_deeply(\@r, [ undef, undef, 'fall through' ], 'canonify, fall through, @192.168.1.1')
or diag Data::Dumper::Dumper(@r);
}