t/phishing.t

#!/usr/bin/perl -T

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

use Test::More;
plan tests => 2;

tstpre ("
loadplugin Mail::SpamAssassin::Plugin::Phishing
");

tstprefs("

phishing_openphish_feed data/phishing/openphish-feed.txt
phishing_phishtank_feed data/phishing/phishtank-feed.csv
body     URI_PHISHING   eval:check_phishing()
describe URI_PHISHING   Url match phishing in feed

");

%patterns_openphish = (
        q{ URI_PHISHING } => 'OpenPhish',
            );

%patterns_phishtank = (
        q{ URI_PHISHING } => 'PhishTank',
            );

%patterns = %patterns_openphish;
sarun ("-L -t < data/spam/phishing_openphish.eml", \&patterns_run_cb);
ok_all_patterns();
clear_pattern_counters();

%patterns = %patterns_phishtank;
sarun ("-L -t < data/spam/phishing_phishtank.eml", \&patterns_run_cb);
ok_all_patterns();