mirror of
https://git.proxmox.com/git/proxmox-spamassassin
synced 2025-04-28 12:19:37 +00:00
71 lines
2.0 KiB
Perl
Executable File
71 lines
2.0 KiB
Perl
Executable File
#!/usr/bin/perl -T
|
|
|
|
use lib '.'; use lib 't';
|
|
use SATest; sa_t_init("askdns");
|
|
use version 0.77;
|
|
|
|
use constant HAS_DKIM_VERIFIER => eval {
|
|
require Mail::DKIM::Verifier;
|
|
version->parse(Mail::DKIM::Verifier->VERSION) >= version->parse(0.31);
|
|
};
|
|
|
|
use Test::More;
|
|
plan skip_all => "Net tests disabled" unless conf_bool('run_net_tests');
|
|
plan skip_all => "Can't use Net::DNS Safely" unless can_use_net_dns_safely();
|
|
|
|
my $tests = 6;
|
|
$tests += 4 if (HAS_DKIM_VERIFIER);
|
|
|
|
plan tests => $tests;
|
|
|
|
# ---------------------------------------------------------------------------
|
|
|
|
#
|
|
# some DKIM stuff
|
|
#
|
|
|
|
if (HAS_DKIM_VERIFIER) {
|
|
tstlocalrules(q{
|
|
full DKIM_SIGNED eval:check_dkim_signed()
|
|
askdns ASKDNS_DKIM_AUTHORDOMAIN _AUTHORDOMAIN_.askdnstest.spamassassin.org. A /^127\.0\.0\.8$/
|
|
askdns ASKDNS_DKIM_DKIMDOMAIN _DKIMDOMAIN_.askdnstest.spamassassin.org. A /^127\.0\.0\.8$/
|
|
# Bug 7897 - test that meta rules depending on net rules hit
|
|
meta ASKDNS_META_AUTHORDOMAIN ASKDNS_DKIM_AUTHORDOMAIN
|
|
});
|
|
%patterns = (
|
|
q{ ASKDNS_DKIM_AUTHORDOMAIN } => 'ASKDNS_DKIM_AUTHORDOMAIN',
|
|
q{ ASKDNS_DKIM_DKIMDOMAIN } => 'ASKDNS_DKIM_DKIMDOMAIN',
|
|
q{ ASKDNS_META_AUTHORDOMAIN } => 'ASKDNS_META_AUTHORDOMAIN',
|
|
);
|
|
ok sarun ("-t < data/dkim/test-pass-01.msg 2>&1", \&patterns_run_cb);
|
|
ok_all_patterns();
|
|
clear_pattern_counters();
|
|
}
|
|
|
|
#
|
|
# TXT
|
|
#
|
|
|
|
tstlocalrules(q{
|
|
askdns ASKDNS_TXT_SPF spamassassin.org TXT /^v=spf1 -all$/
|
|
});
|
|
%patterns = (
|
|
q{ ASKDNS_TXT_SPF } => 'ASKDNS_TXT_SPF',
|
|
'[spamassassin.org TXT:v=spf1 -all]' => 'ASKDNS_TXT_SPF_LOG',
|
|
);
|
|
ok sarun ("-t -D < data/nice/001 2>&1", \&patterns_run_cb);
|
|
ok_all_patterns();
|
|
clear_pattern_counters();
|
|
|
|
tstlocalrules(q{
|
|
askdns ASKDNS_TXT_SPF2 txttcp.spamassassin.org TXT /^v=spf1 include:dnsbltest.spamassassin.org -all$/
|
|
});
|
|
%patterns = (
|
|
q{ ASKDNS_TXT_SPF2 } => 'ASKDNS_TXT_SPF2',
|
|
'[txttcp.spamassassin.org TXT:v=spf1]' => 'ASKDNS_TXT_SPF2_LOG',
|
|
);
|
|
ok sarun ("-t -D < data/nice/001 2>&1", \&patterns_run_cb);
|
|
ok_all_patterns();
|
|
clear_pattern_counters();
|
|
|