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
|
#!/usr/bin/perl -T
use lib '.'; use lib 't';
use SATest; sa_t_init("arc");
use Test::More;
plan skip_all => "Net tests disabled" unless conf_bool('run_net_tests');
plan skip_all => "Needs Mail::DKIM::ARC::Verifier >= 0.50" unless HAS_DKIM_VERIFIER ;
plan tests => 2;
tstlocalrules (q{
loadplugin Mail::SpamAssassin::Plugin::DKIM
full ARC_SIGNED eval:check_arc_signed()
score ARC_SIGNED 0.1
full ARC_VALID eval:check_arc_valid()
score ARC_VALID 0.1
});
%patterns = (
q{ 0.1 ARC_SIGNED }, 'ARC_SIGNED',
);
sarun ("-t < data/dkim/arc/ok01.eml", \&patterns_run_cb);
ok_all_patterns();
clear_pattern_counters();
%patterns = ();
%anti_patterns = (
q{ 0.1 ARC_SIGNED }, 'ARC_SIGNED',
);
sarun ("-t < data/dkim/arc/ko01.eml", \&patterns_run_cb);
ok_all_patterns();
|
