t/arc.t

#!/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();