1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
use strict;
use warnings;
use Data::Dumper;
use Net::DNS::Resolver::Mock;
use Test::More;
use IO::Compress::Gzip;
use lib 'lib';
use Mail::DMARC::Policy;
use Mail::DMARC::Report::Aggregate;
use Mail::DMARC::Report::Aggregate::Record;
my $resolver = new Net::DNS::Resolver::Mock();
$resolver->zonefile_parse(join("\n",
'tnpi.net. 600 MX 10 mail.theartfarm.com.',
''));
my $mod = 'Mail::DMARC::Report::Send::SMTP';
use_ok($mod);
my $smtp = $mod->new;
$smtp->set_resolver($resolver);
isa_ok( $smtp, $mod );
$smtp->config('t/mail-dmarc.ini');
open my $REP, '<', 'share/rua-schema.xsd'
or die "unable to open: $!";
my $report = join( '', <$REP> );
close $REP;
my $zipped;
IO::Compress::Gzip::gzip( \$report, \$zipped ) or die "unable to compress";
my $agg = Mail::DMARC::Report::Aggregate->new;
my $pol = Mail::DMARC::Policy->new;
$pol->domain('they.com');
$agg->policy_published( $pol );
$agg->metadata->begin( time - 10000 );
$agg->metadata->end( time - 100 );
$agg->metadata->report_id( '2013.06.01.6789' );
test_get_subject();
#test_get_domain_mx();
#test_get_smtp_hosts();
test_human_summary();
test_get_filename();
test_get_timestamp_rfc2822();
test_get_helo_hostname();
test_assemble_message();
done_testing();
exit;
sub test_get_subject {
my $subject = $smtp->get_subject( \$agg );
ok( $subject, "get_subject, $subject" );
};
sub test_get_helo_hostname {
my $helo = $smtp->get_helo_hostname();
ok( $helo, "get_helo_hostname, $helo" );
};
sub test_get_timestamp_rfc2822 {
my $r = $smtp->get_timestamp_rfc2822();
ok( $r, "get_timestamp_rfc2822, $r");
};
sub test_get_domain_mx {
my %tests = (
'tnpi.net' => [ { 'pref' => 10, 'addr' => 'mail.theartfarm.com' } ],
);
foreach my $dom ( keys %tests ) {
my $r = $smtp->get_domain_mx( $dom );
if (!$r || $r eq 'Does not exist') {
print "it appears your DNS is not working.\n";
next;
}
ok( $r, "get_domain_mx, $dom");
is_deeply( $r, $tests{$dom}, "get_domain_mx, $dom, deeply");
# print Dumper($r);
};
};
sub test_human_summary {
my $record = Mail::DMARC::Report::Aggregate::Record->new(
auth_results => { spf => [] },
identifiers => {
header_from => 'they.com',
},
row => {
source_ip => '192.2.0.1',
policy_evaluated => {
disposition=>'none',
dkim => 'pass',
spf => 'fail'
}
}
);
$agg->record( $record );
$record->row->policy_evaluated->dkim('fail');
$record->row->policy_evaluated->spf('pass');
$agg->record( $record );
$record->row->policy_evaluated->dkim('fail');
$record->row->policy_evaluated->spf('fail');
$agg->record( $record );
my $sum = $smtp->human_summary( \$agg );
ok( $sum, 'human_summary' );
# print $sum;
}
sub test_get_filename {
my $name = $smtp->get_filename(\$agg);
ok( $name, "get_filename, $name");
};
sub test_assemble_message {
my $mess = $smtp->assemble_message_object( \$agg, 'matt@example.com', $zipped )->as_string;
ok( $mess, "assemble_message_object" );
#warn print $mess;
}
sub test_get_smtp_hosts {
my $initial_smarthost = $smtp->config->{smtp}{smarthost};
$smtp->config->{smtp}{smarthost} = undef;
my $tnpi_expected = [ 'mail.theartfarm.com', 'tnpi.net' ];
my @hosts = $smtp->get_smtp_hosts('tnpi.net');
is_deeply( \@hosts, $tnpi_expected, "get_smtp_hosts, tnpi.net");
# print Dumper(\@hosts);
$smtp->config->{smtp}{smarthost} = $initial_smarthost;
}
|
