#!/usr/bin/perl -T

use lib '.'; use lib 't';
use SATest; sa_t_init("dmarc");

use Test::More;

use vars qw(%patterns %anti_patterns);

use constant HAS_MAILSPF => eval { require Mail::SPF; };
use constant HAS_DKIM_VERIFIER => eval {
  require Mail::DKIM::Verifier;
  version->parse(Mail::DKIM::Verifier->VERSION) >= version->parse(0.31);
};
use constant HAS_MAILDMARC => eval { require Mail::DMARC::PurePerl; };

plan skip_all => "Net tests disabled" unless conf_bool('run_net_tests');
plan skip_all => "Needs Mail::SPF" unless HAS_MAILSPF;
plan skip_all => "Needs Mail::DMARC::PurePerl" unless HAS_MAILDMARC;
plan skip_all => "Needs Mail::DKIM::Verifier >= 0.31" unless HAS_DKIM_VERIFIER ;
plan tests => 18;

tstprefs("

header SPF_PASS     eval:check_for_spf_pass()
tflags SPF_PASS     nice userconf net
full   DKIM_SIGNED  eval:check_dkim_signed()
tflags DKIM_SIGNED  net

# Check that rename backwards compatibility works with if's
ifplugin Mail::SpamAssassin::Plugin::Dmarc
if plugin ( Mail::SpamAssassin::Plugin::Dmarc)
ifplugin Mail::SpamAssassin::Plugin::DMARC

header DMARC_PASS eval:check_dmarc_pass()
tflags DMARC_PASS net

header DMARC_NONE eval:check_dmarc_none()
tflags DMARC_NONE net

header DMARC_QUAR eval:check_dmarc_quarantine()
tflags DMARC_QUAR net

header DMARC_REJECT eval:check_dmarc_reject()
tflags DMARC_REJECT net

header DMARC_MISSING eval:check_dmarc_missing()
tflags DMARC_MISSING net

endif
endif
endif
");

##
## PASS
##

%patterns = (
    q{ DMARC_PASS } => '',
);
%anti_patterns = (
    qr/DMARC_(?!PASS)/ => '',
);

sarun ("-t < data/nice/dmarc/noneok.eml", \&patterns_run_cb);
ok_all_patterns();

sarun ("-t < data/nice/dmarc/quarok.eml", \&patterns_run_cb);
ok_all_patterns();

sarun ("-t < data/nice/dmarc/rejectok.eml", \&patterns_run_cb);
ok_all_patterns();

sarun ("-t < data/nice/dmarc/strictrejectok.eml", \&patterns_run_cb);
ok_all_patterns();

##
## REJECT
##

%patterns = (
    q{ DMARC_REJECT } => '',
);
%anti_patterns = (
    qr/DMARC_(?!REJECT)/ => '',
);

sarun ("-t < data/spam/dmarc/rejectko.eml", \&patterns_run_cb);
ok_all_patterns();

sarun ("-t < data/spam/dmarc/strictrejectko.eml", \&patterns_run_cb);
ok_all_patterns();

##
## QUAR
##

%patterns = (
    q{ DMARC_QUAR } => '',
);
%anti_patterns = (
    qr/DMARC_(?!QUAR)/ => '',
);

sarun ("-t < data/spam/dmarc/quarko.eml", \&patterns_run_cb);
ok_all_patterns();

##
## NONE
##

%patterns = (
    q{ DMARC_NONE } => '',
);
%anti_patterns = (
    qr/DMARC_(?!NONE)/ => '',
);

sarun ("-t < data/spam/dmarc/noneko.eml", \&patterns_run_cb);
ok_all_patterns();

##
## MISSING
##

%patterns = (
    q{ DMARC_MISSING } => '',
);
%anti_patterns = (
    qr/DMARC_(?!MISSING)/ => '',
);

sarun ("-t < data/spam/dmarc/nodmarc.eml", \&patterns_run_cb);
ok_all_patterns();